Adding A New Customer At the End of A List

**j.m1** · 11-29-2012, 07:27 AM

Hi All,
I have an excel spreadsheet with a tab named "cadet database". I wish to have a macro named "AddCadet" which takes the name of a cadet from cell F6 on a tab named "Add Profile", finds the last row of data in "cadet database" with no data present, and adds the name of the cadet to this cell in column B.
Many Thanks

**RHCPgergo** · 11-29-2012, 07:38 AM

Hey,

try this one:

Sub AddCadet()
    Dim LastRow As Long
    With Sheets("cadet database").UsedRange
        LastRow = .Rows(.Rows.Count).Row
    End With
    Sheets("cadet database").Range("B" & LastRow + 1) = Sheets("Add Profile").Range("F6")
End Sub

**TMS** · 11-29-2012, 07:39 AM

Sub AddCadet()
Application.ScreenUpdating = False
Range("F6").Copy _
    Sheets("cadet database").Range("B" & Rows.Count).End(xlUp).Offset(1, 0)
Application.ScreenUpdating = True
End Sub

Regards, TMS