Range paste code ??

[kl2190]

hi all,

how do i specify the range between that last used cell+1 in column C and the last used row on the sheet and all the cells in between. example if C5 is the last used cell in column C and row 8 is the last used row on the sheet. it will paste to C6,C7,C8. i cant get the destination right.


LastRowSL = Worksheets("Saw List").UsedRange.Rows.Count
LastCell = Worksheets("Saw List").Cells(Rows.Count, "C").End(xlUp).Row Worksheets("Windows").Range("E2").Copy _
Destination:=Worksheets("Saw List").Range("C" & LastCell + 1 & ":C" & LastRowSL)
<!-- / message -->

 

[baitmaster]

try setting your range before your copy paste code

dim lastRowSL as long, lastCell as long, rngDest as range
 
LastRowSL = Worksheets("Saw List").UsedRange.Rows.Count
LastCell = Worksheets("Saw List").Cells(Rows.Count, "C").End(xlUp).Row 
 
with Worksheets("Saw List")
    set rngDest = .range(.cells(lastcell,3),.cells(lastrowSL,3))
end with
 
Worksheets("Windows").Range("E2").Copy Destination:= rngDest