Copy Paste VBA Erroring Out

[WWII_Buff]

Can anyone tell me why this isn't running please?

Thanks in advance!

Sub Upload()

    Dim src As Worksheet
    Dim trg As Worksheet
    Dim LastRow As Long

    Set src = ThisWorkbook.Worksheets("MASTER")
    Set trg = ThisWorkbook.Worksheets("UPLOAD TEMPLATE")

    src.Range("A5:A" & LastRow).Copy Destination:=trg.Range("A6")
    src.Range("B5:B" & LastRow).Copy Destination:=trg.Range("B6")
    src.Range("AM5:AY" & LastRow).Copy Destination:=trg.Range("C6")

End Sub

 

[Legacy 421546]

"Isn't running" is not very helpful ...

Some clever programmer once said something like
An effective way of debugging is to minimize your (failing) application as much as you can. In this process you will often find the reason for the error.

So, make a copy of your program and with the copy, take off all code not needed and step through the few lines of code remaining until you can isolate the error.
This is also useful if you want to post your code. Small and easy to overview.

 

[njimack]

You haven't set LastRow

 

[WWII_Buff]

You haven't set LastRow

Oh! Thanks - How do I do that?

As an example: LastRow = Length of data in the specific columns?

I thought Dim LastRow As Long did that

 

[njimack]

Dim just tells the system which type of data to expect. Try this:

Sub Upload()

    Dim src As Worksheet
    Dim trg As Worksheet
    Dim LastRow As Long


    Set src = ThisWorkbook.Worksheets("MASTER")
    Set trg = ThisWorkbook.Worksheets("UPLOAD TEMPLATE")
    
[B]    LastRow = src.Cells(Rows.Count, 1).End(xlUp).Row[/B]


    src.Range("A5:A" & LastRow).Copy Destination:=trg.Range("A6")
    src.Range("B5:B" & LastRow).Copy Destination:=trg.Range("B6")
    src.Range("AM5:AY" & LastRow).Copy Destination:=trg.Range("C6")


End Sub

 

[WWII_Buff]

@njimack FTW! Like a Champ! Thank you Neil!