VBA cells in one sheet to another sheet specific cells

[scubadivingfool]

OK, not sure how to go about this.

I have data in sheet1, Image right below, that I need to copy over to sheet 2. For example I need A2 on shhet1 to be copied to A8 on sheet2, B2 on sheet1 to A7 on sheet2, and B3 on sheet1 to A6 on sheet2. The number of cells on sheet 1 will be different ranging from 1 to 50 different cells. I am figuring that VBA is the best way but not sure how to get around this. Any help is appreciated.

Sheet1

Sheet2

 

[PeteWright]

This is basic VBA:

Your example would be coded like this:

Sub CopyCells()
   Dim ws1, ws2 As Worksheet
   Set ws1 = ThisWorkbook.Sheets("Sheet1")
   Set ws2 = ThisWorkbook.Sheets("Sheet2")
   
   ws2.Range("A8").Value2 = ws1.Range("A2").Value2
   ws2.Range("A7").Value2 = ws1.Range("B2").Value2
   ws2.Range("A6").Value2 = ws1.Range("B3").Value2
End Sub

In order to give you a more accurate answer I would need some more information on your data.