I am trying to do a simple Copy/Paste

cLastcol = Sheets("Initial by Laser").UsedRange.Columns.Count
cLastRow = Columns("A:A").Find(What:="Grand Total",
LookAt:=xlWhole).Row

I want to copy "D" &clastrow+1: "D"&clastrow+17 to E+clastrow+1:
clastcol-5&clastrow+1
(In other words... D172:D192 to e172:ca192)

My sad attempt at code below:



Range("D" & cLastRow + 1 & ":" & "D" & cLastRow + 17).Copy
Range(Columns(cLastRow + 1, cLastcol - 5))