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...???

Thanks!

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

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
Sheets("Plot_Point_Data")


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"el dee" wrote in message
...
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...???

Thanks!

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

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?...?
TIA



"Don Guillett" wrote:

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
Sheets("Plot_Point_Data")


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"el dee" wrote in message
...
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...???

Thanks!

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

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.


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"el dee" wrote in message
...
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?...?
TIA



"Don Guillett" wrote:

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
Sheets("Plot_Point_Data")


--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"el dee" wrote in message
...
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...???

Thanks!

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