Ok, let's see what's next...yes, picking up the two values in A2 and A3 and pasting them into the desired sheet. Still proceeding a few steps at a time, let's do this:
Code:
Sub Something() 'I don't care what you name it.
Set wo = ThisWorkbook
Set soFm = wo.Worksheets("Page1")
snTo = soFm.Range("A1").Value 'collect the data from Page1
v2 = soFm.Range("A2").Value
v3 = soFm.Range("A3").Value
set soTo = wo.Worksheets(snTo) 'paste the data in the target sheet
soTo.Range("A2").Value = v2
soTo.Range("A3").Value = v3
End Sub
This still isn't finished, of course, but it takes the next step. The three statements marked "collect the data" take each of the values in A1, A2 and A3 and put them in three variables. The next statement sets soTo ("sheet object To") to point to
whatever worksheet is named in A1. The last two statements put the values into A2 and A3 of the target sheet.
There are still several things wrong. For one thing, you want to cut the data from Page1, but this program is only copying it. And for another, in the new worksheet it's pasting the data in column A, but you need it to find the next free column to the right and paste it there (right?). But again, let's make sure this part is working right before we go on.
Also, you should feel free to rename the variables in this program to suit your own preferences, and to add or modify the comments so that they make sense to
you rather than to me. Write them in your own language, of course (what is your language, anyway?), but also have them tell you more than I've chosen to say.
Before we go on to the next step, please a) confirm that your code is pasting the correct data into the correct worksheet (though not, yet, the correct column), and b) show me what
your version of this program looks like so far.