Autofill not working.


el dee

Am trying to get my Autofill Macro to select the last filled cell in column A
and autofill down. The autofill must stop based on the data in column F.
For example, A has one entry and F has 10. I want "A" to autofill down to
the end of entries in "F, so I want A to fill down to 10. I have the
following code, but it is not executing...???


Sub AutoFill_Plot_Points()

Dim LastRow As Long
Dim RngToCopy As Range
Dim HowManyRows As Long

With Sheets("Plot_Point_Data")
LastRow = .Cells(.Rows.Count, "F").End(xlUp).Row

'using the last used cell in column A to get the row to copy
Set RngToCopy = .Cells(.Rows.Count, "A").End(xlUp)

HowManyRows = LastRow - RngToCopy.Row + 1

If HowManyRows > 1 Then
RngToCopy.Resize(HowManyRows, 4).FillDown
End If
End With
End Sub

Don Guillett

Although I would have written in a more simplified manner, I just tested
your code with a formula in a1 and data in col F. Worked. Check With

el dee

Checked With Sheets("Plot_Point_Data").
All good, still not executing. Any chance it could be because col A and B
are merged in ("Plot_Point_Data")??
A1 is ususally an integer as well?...?

Don Guillett

If desired, send your file to my address below along with this msg and
a clear explanation of what you want and before/after examples.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question