I'm trying to write a macro that allows me to autofill columns D:G starting always starting at D7 and going until there is no more data found in columns A:C in any subsequent rows. So, in this example the last piece of data is row 578, but next time it may be 800. How do I write the autofill so that it continue until no matter data is left?
Thanks!
Thanks!
Code:
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("D7:G7").Select
Application.CutCopyMode = False
[B]Selection.autofill Destination:=Range("D7:G578")
[/B] Columns("F:G").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit