copy & paste macro not working

Dear Guys:

I have this code and it is not working as I need

Sub Macro81()

    Dim startRow As Integer
    
    'Get the starting row number
    Windows("1.xlsb").Activate
    startRow = Selection.Row
    
    'Copy and paste the data
    Range("C163:G430").Copy
    Windows("ODELIS220233.xlsb").Activate
    Range("C" & startRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
   
    Windows("1.xlsb").Activate
    Range("A163:A430").Copy
    Windows("ODELIS220233.xlsb").Activate
    Range("B" & startRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

End Sub

the problem is that I select a row where I want to start the first step of the above code and start pasting the data in column c and the selected raw number

the problem occurred in step 2 of the code where I tried to copy another range of data rom Column a to column b in destination and needed it to start pasting data in column b in the same raw number I selected at the beginning.

the reason I am trying to do this, because there are columns in the range that I do not need to be copied and pasted, and I want to be able to dynamically use the macro that is why I need the code to recognize the raw number in my first selection

it works very well without adding the second step in the code

thank you in advance

What does it do that is different than what you want it to do?

Although I would not code using Windows().Activate, it appears that your code should work.

Originally Posted by markswan111

it is not running at all, giving this highlighted in yellow when debugging
Range("C" & startRow).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

What is the error message you get when this occurs? When asking about a VBA error it is essential to give us the error number and error message.

Also you originally said,

the problem occurred in step 2 of the code where I tried to copy another range of data rom Column a to column b

I do not know what you mean by "step 2" but the code above where you said you got an error is not copying from column A to B. It's C to C.

Also, the way your code is written it is not possible for me to simply paste it into a file and run it. It is dependent on specific file names so I would either have to set up files with those names or rework the code to make it more generic. Hopefully we can resolve it on your end.

Originally Posted by markswan111

step1- I need the vba to copy every other sell in range A163:A430 in book2, and paste the values starting with any selected cell in column B in book1

step2- I need the vba to copy range c163:g430 from book2, and paste the values in column P of book1 starting with the same selected row number in step1

step3- I need the vba to copy every other sell I163:I430 in book2, and paste the values in column W of book1 starting with the same selected row number in step1

Your original post did not say that you want to copy every other cell, and that is not what your code does. Please clarify what you want to do here.

Your original post did not mention anything about what you describe here as "step3".

You have not told me what error code and message you get on that line of code you described in post #4.

Of the two files you attached, which one is 1.xlsb and which one is ODELIS220233.xlsb?

It looks like a concise explanation of what you want to accomplish would be easier.

No problem. Have it your way.
BTW. It should not run at all.

Hi Jeff.
Re: "Which is why we ask for a concise explanation of what you need."
You know the answer to that. It's in Post #5.

I guess you missed the point totally. If I made you feel bad, that was not my intention. My point solely is to make people see that they can't be helped if they are not willing to help themselves.

Originally Posted by markswan111

here is the vba code that could do all that I had wanted

Thank you for sharing your solution.

step3- I need the vba to copy every other sell I163:I430 in book2, and paste the values in column W of book1 starting with the same selected row number in step1

This code does not do this.

jolivanes simply suggested that you provide a better explanation than what was in your first post, which you later said to ignore. I would request that all parties stop further personal comments or the thread will be closed.