Sub FirstSeven()
Dim cl As Range
Dim i As Long
For Each cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
If Right(cl.Value, 1) = 8 Then
i = i + 1
Range("B" & i).Value = cl.Value
If i = 7 Then Exit For
End If
Next cl
End Sub
Just so you will know next time.
Your original post said:
What formulashould I use to list the first only 7 numbers in column A, whose last digit is 8.
A Vba script is not considered a Formula.