Copy and pasting a dynamic range from one sheet to another

Hi

I'm trying to copy a range of column headers from one worksheet and paste them in another using a macro
The source range starts at Q1 and runs along row 1 for a variable number of columns each time.
The destination cells start at B1 and will run along row 1 for the same number of columns.

I've got as far as counting the number of source columns

PHP Code: 

Dim LastDate As Long

LastDate = Sheets("Edited data").cells(1, Columns.Count).End(xlToLeft).Column 


But I'm not sure how to paste to a changing number of columns

PHP Code: 

 Sheets("Edited data").Range("Q1", cells(1, LastDate)).copy Destination:=Sheets("Variety Total").Range("B1", ????) 


Any help would be appreciated. My VBA knowledge is basic so the simpler the better

Try:

Please Login or Register  to view this content.

Please Login or Register  to view this content.