.End(xlUp).Row need to stop at defined row

[ceytl]

Hello,

Currently this code goes through the entire F column, but I only want it to go to F1:F900

How would I do that?

Thanks!

Sub SumColumn()

Sheets("Sales").Select
Dim Lr As Long, i As Long
Lr = Range("F" & Rows.Count).End(xlUp).Row
For i = 25 To Lr
If Range("F" & i).HasFormula() = True Then Range("F" & i).AutoFill Destination:=Range("F" & i & ":G" & i)
Next i
End Sub

 

[Alex Blakenburg]

Your code works fine in principle. What it does it to set Last Row to be the last used cell in column F.
If you only want it to go to row 900 then you need to either set the range to only go to 900 or make sure that every cell below row 900 in column F is empty.

 

[Fluff]

This will limit it to row 900 as a maximum

Sub SumColumn()

Sheets("Sales").Select
Dim Lr As Long, i As Long
Lr = Range("F" & Rows.Count).End(xlUp).Row
If Lr > 900 Then Lr = 900
For i = 25 To Lr
If Range("F" & i).HasFormula() = True Then Range("F" & i).AutoFill Destination:=Range("F" & i & ":G" & i)
Next i
End Sub

 

[ceytl]

This will limit it to row 900 as a maximum

Sub SumColumn()

Sheets("Sales").Select
Dim Lr As Long, i As Long
Lr = Range("F" & Rows.Count).End(xlUp).Row
If Lr > 900 Then Lr = 900
For i = 25 To Lr
If Range("F" & i).HasFormula() = True Then Range("F" & i).AutoFill Destination:=Range("F" & i & ":G" & i)
Next i
End Sub

Thank you!

 

[Fluff]

Glad we could help & thanks for the feedback.