Make Sheets.(Range 1) = Sheets.(Range 2)
I am getting an Error on the line indicated below. FacePlastic_BOM is
declared and calculated in another Sub in the UserForm. For now
FacePlastic_BOM = 160.
Dim LastRow As Single
Sheets("BOM & Labor").Unprotect "AdTech"
LastRow = Sheets("BOM & Labor").Cells(Rows.Count, "A").End(xlUp).Row + 1
'plastic material
'ERROR == Sheets("BOM & Labor").Range(Cells(LastRow, "A"),
Cells(LastRow, "D")) = _
Sheets("Parts List").Range(Cells(FacePlastic_BOM, "A"),
Cells(FacePlastic_BOM, "D"))
Thanks in Advance,
Ryan
|