I am writing some code to try to do the following:
- copy a cell without any formatting (no style, no colour) from the active sheet to the first blank cell in column D in a sheet called RegionQualifiers
- then to Fill Down this cell in column D to the last used row in column A
I get the error message : "Object doesn't support this property or method." on the line starting with AutoFill.
I would like to replace "D2" (both occurrences) with some code to find the first blank cell in column D so that if I run the macro more than once, the Copy and AutoFill start on the first blank line. Any help would be very greatly appreciated.
Dim bottomA as Long
bottomA = Range("a" & Rows.Count).End(xlUp).Row
.AutoFill Destination:=Range("D2" & ":D" & bottomA).End(xlDown)