Forum Discussion
Solved
VBA Code - Autofill Down - Copying two cells down to the end of the last row
Need help correcting a Macro that will automatically copy data in two cells down to the last row. I have attempted to use the other conversations similar to this to fix error I am receiving but I co...
Try this version:
Sub CopyDownAA_AB() Dim LastRow As Long LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("AA2:AB2").AutoFill Destination:=Range("AA2:AB" & LastRow) End Sub
The code looks OK (although it is not necessary to select ranges). What is the error message that you receive?
HansVogelaar Thanks for getting back with me! Each sheet has a different number of rows. So when I use the macro on another sheet, it only goes down to Row 105, even if I have 200 rows. I need it to copy down to the last row, regardless of how many rows there are.
Try this version:
Sub CopyDownAA_AB() Dim LastRow As Long LastRow = Cells.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row Range("AA2:AB2").AutoFill Destination:=Range("AA2:AB" & LastRow) End Sub- Perfect! Thanks for the help.
