Was hoping you could help this VB beginner.
Keep getting '9' Subscript Out of Range error. Debug brings me to this:
lastrow = Sheets("DB").Range("A356000").End(xlUp).Row + 1
The Range is dynamic and I am think my line code is off since I am trying to set some sort of range. Help please! Thanks,
Keep getting '9' Subscript Out of Range error. Debug brings me to this:
lastrow = Sheets("DB").Range("A356000").End(xlUp).Row + 1
The Range is dynamic and I am think my line code is off since I am trying to set some sort of range. Help please! Thanks,
HTML:
Sub MyMacro()
Dim lastrow As Long
dTime = Now + TimeValue("00:00:12")
Application.OnTime dTime, "MyMacro"
lastrow = Sheets("DB").Range("A356000").End(xlUp).Row + 1
Worksheets("1 Minute Refresh").Range("A2:R101").CopyActiveSheet.Paste Destination:=Worksheets("DB").Range("A" & lastrow)
End Sub