i have this code right here...
It basically copys the template found at a1 through h10 and copies it to customer i have in teh excel sheet. The problem i am having.. is after... what, maybe 1000-1500 customers it slows waaaaaaaay down. any way i can fix that?
Code:
Sub Template_builder()
Dim Lastrow, X As Integer
'This function looks for the last row
Lastrow = Range("A65536").End(xlUp).Row
For X = Lastrow + 1 To 12 Step -1
Range("A5:H10").Select
Selection.copy
Range("A" & X & ":A" & X + 5).Select
Selection.Insert Shift:=xlDown
Next X
End Sub
It basically copys the template found at a1 through h10 and copies it to customer i have in teh excel sheet. The problem i am having.. is after... what, maybe 1000-1500 customers it slows waaaaaaaay down. any way i can fix that?