Select to end multiple columns

[Klturi421]

I have data stored in Columns A through AZ but only want to copy A,B, and C to the last cell.

I was using

 Range(Range("A5"), Range("A5").End(xlDown)).Select 

However, if I try adding the cells it does not copy those ranges. Is there a way that I can achieve this with the code I provided or is there a different method to achieve this?

 

[My Aswer Is This]

Normally you would write a script sort of like this:

Sub Me_And_You()
Dim i As Long
Dim Lastrow As Long
Dim Lastrowa As Long
Lastrow = Sheets("Master").Cells(Rows.Count, "A").End(xlUp).Row
Lastrowa = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1
For i = 1 To Lastrow
Sheets("Master").Range("A" & i & ":C" & i).Copy Destination:=Sheets("Data").Range("A" & Lastrowa)
Lastrowa = Lastrowa + 1
Next
End Sub