VBA Autofill Formula Issue

[ItalianPlatinum]

Hello - running into a slight issue with my VBA where it is copying my formula too high up and not sure how to get an alternative for the results i need. Ask is pretty simply i have 7 columns with a header of data in all. first 3 columns are just data reference of what the data pertains to while the last four are formulas. so looking for the last 4 columns to copy the formula down only if data in the first column. Data starts on A11, headers on A10.

A	B	C	D	E	F	G
Team 1	Home	Away	FORMULA	FORMULA	FORMULA	FORMULA
Team 2	Home	Away

Range("D11:G11").Select
Selection.AutoFill Destination:=Range("D11:G" & Range("A" & rows.count).End(xlUp).row)
Range(Selection, Selection.End(xlDown)).Select

the VBA is above works in most scenarios but in some i see it overriding my column headers named, D,E,F,G

 

[ItalianPlatinum]

Hello - running into a slight issue with my VBA where it is copying my formula too high up and not sure how to get an alternative for the results i need. Ask is pretty simply i have 7 columns with a header of data in all. first 3 columns are just data reference of what the data pertains to while the last four are formulas. so looking for the last 4 columns to copy the formula down only if data in the first column. Data starts on A11, headers on A10.

A	B	C	D	E	F	G
Team 1	Home	Away	FORMULA	FORMULA	FORMULA	FORMULA
Team 2	Home	Away

Range("D11:G11").Select
Selection.AutoFill Destination:=Range("D11:G" & Range("A" & rows.count).End(xlUp).row)
Range(Selection, Selection.End(xlDown)).Select

the VBA is above works in most scenarios but in some i see it overriding my column headers named, D,E,F,G

ok i think I diagnosed when it happens. if i only have 1 record the VBA falls down.

 

[Fluff]

How about

Sub ItalianPlatinum()
   Dim UsdRws As Long
   UsdRws = Range("A" & Rows.Count).End(xlUp).Row
   If UsdRws > 11 Then Range("D11:G" & UsdRws).FillDown
End Sub

 

[ItalianPlatinum]

How about

Sub ItalianPlatinum()
   Dim UsdRws As Long
   UsdRws = Range("A" & Rows.Count).End(xlUp).Row
   If UsdRws > 11 Then Range("D11:G" & UsdRws).FillDown
End Sub

Per usual worked like a charm! Thank you for the help, always appreciated.

 

[Fluff]

Glad to help & thanks for the feedback.