How to select last active row

[jcc31]

Here is my code. I would like to know since every file has a different amount of records, if there is a way process my code only to the last active record?
In this case here I put 6500 records but I really do have that many records.
And my record must start with the second record for processing.


Range("V2").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(C[-2],"" "",C[-10],"" "",C[-16])"
Selection.AutoFill Destination:=Range("V2:V6500"), Type:=xlFillDefault
Range("V2:V65000").Select
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("T:Z").Select
Selection.ClearContents

[AH·C]

Try this:

Dim cell As Range
Dim lastCell As Range
Dim theCells As Range

Set lastCell = Cells(6500, ActiveCell.Column).End(xlUp) 'find the last active cell, change 6500 up or down to ensure coverage

Set theCells = Range(Cells(X, ActiveCell.Column), lastCell) 'X is the value of starting row, ie 2 and ActiveCell.Column can be a defined value, i.e "V"

For Each cell In theCells
If Not IsEmpty(cell) Then
'your code to do whatever
End If
Next

HTH