VBA - Paste Data Below last row in a diffrent sheet.

[borski88]

Sub DailyToWeekly()
'Find Last Row
Dim DLR As Long, WLR As Long
DLR = Sheets("Daily").Range("D10000").End(xlUp).Row
WLR = Sheets("Weekly").Range("D10000").End(xlUp).Row

[COLOR=#ff0000]Sheets("Daily").Range("C2:G" & DLR).EntireRow.Copy Destination:=Sheets("Weekly").Range("C1:G" & WLR).End(xlUp).Offset(1, 0)[/COLOR]

End Sub

I am attempting to copy data from Columns C:G in the Daily tab, and past them below the last line in the Weekly Tab. I cannot figure out the issue with the error.

 

[Fluff]

Try

Sub DailyToWeekly()
'Find Last Row
Dim DLR As Long, WLR As Long
DLR = Sheets("Daily").Range("D10000").End(xlUp).Row
WLR = Sheets("Weekly").Range("D10000").End(xlUp).Row

Sheets("Daily").Range("C2:G" & DLR).EntireRow.Copy Destination:=Sheets("Weekly").Range("C" & WLR).Offset(1, 0)

End Sub

 

[D3allamerican07]

Borski88,

Try:

'If you want to copy the entire row
Sheets("Daily").Rows(2 & ":" & DLR).Copy Destination:=Sheets("Weekly").Rows(WLR + 1)

'If you want to copy just the range
Sheets("Daily").Range("C2:G" & DLR).Copy Destination:=Sheets("Weekly").Range("C" & WLR + 1)

Let me know if these worked.

Bill

 

[borski88]

Fluff:
Thank you, sadly this also returned an error.

D3allamerican07: Thank you, your 2nd one worked perfectly!

 

[Fluff]

Missed abit

Sub DailyToWeekly()
'Find Last Row
Dim DLR As Long, WLR As Long
DLR = Sheets("Daily").Range("D10000").End(xlUp).Row
WLR = Sheets("Weekly").Range("D10000").End(xlUp).Row

Sheets("Daily").Range("C2:G" & DLR).Copy Destination:=Sheets("Weekly").Range("C" & WLR).Offset(1, 0)

End Sub

 

[borski88]

as a followup, is there anyway to make this sting paste as xlvaules?

 

[borski88]

I figured out the solution:

Sheets("Daily").Range("C2:G" & DLR).Copy
Sheets("Weekly").Range("C" & WLR).Offset(1, 0).PasteSpecial xlPasteValues

thank you everyone!

 

[Fluff]

Try

Sheets("Weekly").Range("C" & 2).Offset(1).Resize(DLR - 1, 5).Value = Sheets("Daily").Range("C2:G" & DLR).Value