Re: Copy and Paste
Hi,
I couldn't get your code to work either _unless_ I selected each sheet explicitly. Tom's code works fine, however.
This version keeps your cell references and changes the Activesheet, instead.
Code
Sub test()
Dim LCPV As Long
Dim LCIN As Long
Sheets("Zips").Select
LCPV = Cells(22, 14).End(xlUp).Row - 1
LCIN = LCPV + 4
Range(Cells(9, 14), Cells(LCPV, 15)).Copy
Sheets("Input").Select
Range(Cells(13, 8), Cells(LCIN, 9)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Display More
Cheers,
dr