Good hearing from you rylo . . .
Please look at the code on this reply. You will know better than by my trying to describe it.
'Sorry, I forgot to tell you that all data in column 8, with the exception of rows 1 : 11.
'Need code to delete all data from last name in column 8 up thru row 12
Sub EliminateLeadingBlanks()
Dim i
For i = 12 To Cells(Rows.Count, 8).End(xlUp).Row
Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Value = Trim(Cells(i, 8).Value)
Next i
'WORKS PERFECT TO HERE !
'NEED CODE HERE
End Sub
Bookmarks