R/T error 1004 - App-defin or obj defin error on last presented li
Sub PrepDepsAndWiths()
Sheets("ImportWorkTable").Select
ActiveSheet.UsedRange.Offset(1, 0).Copy
Sheets("DepositsAndWithdrawals").Range("D2")
Sheets("DepositsAndWithdrawals").Activate
Range("A1").Select
Beglrow = Cells(Rows.Count, "D").End(xlUp).Row ' = 589
ActiveSheet.Range("B2:B" & Beglrow).Formula = "=IF(ISNUMBER(D2),D2,"")"
<<Bombing here (this line)
Can someone assist?
|