paste help

[Ks1102]

Hi, all
please help and learn me that's macros copy from sheet1 to sheet2 problem was here how to have rows count by C" than paste at A?


I have code that also some experts help me here.

With Sheets("WtimeSaving")

Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, 14).Copy

End With
Sheets("Historical").Cells(Rows.Count, "C").End(xlUp).Offset(, 1).PasteSpecial xlPasteValues
Application.CutCopyMode = False
End Sub

Thanks the help so much.

 

[VoG]

Possibly

With Sheets("WtimeSaving")
    LR = .Range("C" & Rows.Count).End(xlUp).Row
    .Range("A1:A" & LR).Resize(, 14).Copy
End With
Sheets("Historical").Cells(Rows.Count, "A").End(xlUp).Offset(, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[Ks1102]

Possibly

With Sheets("WtimeSaving")
    LR = .Range("C" & Rows.Count).End(xlUp).Row
    .Range("A1:A" & LR).Resize(, 14).Copy
End With
Sheets("Historical").Cells(Rows.Count, "A").End(xlUp).Offset(, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Thanks very much .
have nice day