Been using the below VBA for years - no issue. All of a sudden i get a break on the bolded line. Guessing something to do with how I use 'Range' as everything else in VBA referencing 'Sheets' is fine. Any advice would be greatly appreciated:
Sheets("Blotter").Select
Range("AE2:AH2").Select
Selection.AutoFill Destination:=Range("AE2:AH150000")
Sheets("Blotter2").Select
Range("AD2:AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD150000")
Sheets("TOTALS").Range("AM2:AN2").Copy
With Sheets("TOTALS").Range("D" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
Sheets("TOTALS").Range("AM3:AN3").Copy
With Sheets("TOTALS").Range("J" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
Sheets("Blotter").Select
Range("AE2:AH2").Select
Selection.AutoFill Destination:=Range("AE2:AH150000")
Sheets("Blotter2").Select
Range("AD2:AD2").Select
Selection.AutoFill Destination:=Range("AD2:AD150000")
Sheets("TOTALS").Range("AM2:AN2").Copy
With Sheets("TOTALS").Range("D" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With
Sheets("TOTALS").Range("AM3:AN3").Copy
With Sheets("TOTALS").Range("J" & Rows.Count).End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteColumnWidths
.PasteSpecial Paste:=xlPasteValues
End With