Why am I getting an application-based/object-based error?

[aloha31]

     ActiveWorkbook.Worksheets("Line 70").Range("C4", Range("D" & Rows.Count).End(xlUp)).Copy _
            Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T1" & Rows.Count).End(xlUp).Offset(1)
     ActiveWorkbook.Worksheets("Line 76").Range("C4", Range("D" & Rows.Count).End(xlUp)).Copy _
            Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T1" & Rows.Count).End(xlUp).Offset(1)

Not sure if I need to define something or if my formatting is just wrong. All I am trying to do is copy columns from two worksheets into one main worksheet.

Please help!

[AB33]

With out 1

ActiveWorkbook.Worksheets("Line 70").Range("C4", Range("D" & Rows.Count).End(xlUp)).Copy _
            ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)
     ActiveWorkbook.Worksheets("Line 76").Range("C4", Range("D" & Rows.Count).End(xlUp)).Copy _
            ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)

[AB33]

More likely

ActiveWorkbook.Worksheets("Line 70").Range("C4:C", Range("D" & Rows.Count).End(xlUp)).Copy _
            ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)
     ActiveWorkbook.Worksheets("Line 76").Range("C4:C", Range("D" & Rows.Count).End(xlUp)).Copy _
            ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)

[JosephP]

you need to qualify all the ranges

   with ActiveWorkbook.Worksheets("Line 70")
    .Range("C4", .Range("D" & .Rows.Count).End(xlUp)).Copy _
            Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T1" & Rows.Count).End(xlUp).Offset(1)
end with
    with ActiveWorkbook.Worksheets("Line 76")
      .Range("C4", .Range("D" & .Rows.Count).End(xlUp)).Copy _
            Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T1" & Rows.Count).End(xlUp).Offset(1)
end with

[aloha31]

Thank you both, the answer was actually a combination of both of your responses:

With ActiveWorkbook.Worksheets("Line 70")
    .Range("C4", .Range("D" & .Rows.Count).End(xlUp)).Copy _
        Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)
End With
With ActiveWorkbook.Worksheets("Line 76")
    .Range("C4", .Range("D" & .Rows.Count).End(xlUp)).Copy _
        Destination:=ActiveWorkbook.Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)
End With

[AB33]

Yes with and end with is more accurate, but IF all the sheets are on the same workbook, this should also work.

Worksheets("Line 70").Range("C4:C", Range("D" & Rows.Count).End(xlUp)).Copy _
        Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)
     Worksheets("Line 76").Range("C4:C", Range("D" & Rows.Count).End(xlUp)).Copy _
    Worksheets("Working Total DX Departures").Range("T" & Rows.Count).End(xlUp).Offset(1)

[JosephP]

no because

Range("D" & Rows.Count).End(xlUp)

will find the last used row in column D on the active sheet, not the required sheet (it's also missing the .Row part)