When I step through this code, I get this error Application defined or Object defined error on this line Range("C3").AutoFill Destination:=Range("C3:C" & Lastrow)
and sometimes the yellow line goes to another procedure that is not even called or associated to this one. I think it has to do with the Range but not sure how to fix. Thanks in advance.
Sub InsertVS()
Dim Lastrow As Long
Application.ScreenUpdating = False
UnProt Sheet27.Name
Sheet27.Activate
Sheet27.Range("C:D").EntireColumn.Insert
Sheet27.Range("C2").Select
ActiveCell.FormulaR1C1 = "Security Employee"
Sheet27.Range("D2").Select
ActiveCell.FormulaR1C1 = "ID"
Sheet27.Range("D3").Select
Lastrow = Cells(Rows.Count, "B").End(xlUp).Row
Sheet27.Range("C3").FormulaR1C1 = _
"=(VLOOKUP(B3,'Vendor'!$E$2:G497,2,FALSE))"
Sheet27.Range("C3").Select
Range("C3").AutoFill Destination:=Range("C3:C" & Lastrow)
Sheet27.Range("D3").FormulaR1C1 = _
"=VLOOKUP(B3,'CD Unique Hold Vendor'!$E$2:H497,3,FALSE)"
Sheet27.Range("D3").Select
Sheet27.Range("D3").AutoFill Destination:=Range("D3:D" & Lastrow)
Application.ScreenUpdating = True
End Sub
Open in new window
Along that line, you can also remove the need to select anything in your subroutine:Open in new window
Matt