VBA: Efter userform gå til første tomme felt i kolonne A

Jeg har lavet en userform som når man trykker færdig fint fylder tingene ind i arket som ønsket.
Men når den er færdig vender den tilbage til A15, jeg vil gerne havde at den istedet står i det sidste felt i kolone A som er udfyldt eller det første lige efter. Men lige meget hvad jeg prøver at sætte ind så virker det ikke. Den vender hvergang tilbage til A15.
Køre jeg de funktioner som jeg har sat ind som selvstændig makro så virker det.
Den sub jeg her er:

Private Sub CommandButton2_Click()
    Range("m1").Select
    ActiveCell.FormulaR1C1 = glkost
    Range("n1").Select
    ActiveCell.FormulaR1C1 = Nykost
    Range("h1").Select
    ActiveCell.FormulaR1C1 = Varsling
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "KP"
    Range("I1").Select
    ActiveCell.FormulaR1C1 = Ændring
    Range("l1").Select
    ActiveCell.FormulaR1C1 = Ændring
    Range("j1").Select
    ActiveCell.FormulaR1C1 = Beholdning
    Range("p1").Select
    ActiveCell.FormulaR1C1 = Pris
    Range("r1").Select
    ActiveCell.FormulaR1C1 = Pris
    Range("g2").Select
    ActiveCell.FormulaR1C1 = Application.UserName
    Range("x2").Select
    ActiveCell.FormulaR1C1 = Evt
    Range("a15").Select
    If Range("a15").Value = "" Then
    Range("a15").Activate
    Else
    Range("a15").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
    End If
    With ActiveCell
    .Value = Range("A2")
    .Offset(0, 1).Value = Range("B2")
    .Offset(0, 2).Value = Range("C2")
    .Offset(o, 3).Value = Range("D2")
    .Offset(o, 4).Value = Range("E2")
    .Offset(o, 5).Value = Range("F2")
    .Offset(o, 6).Value = Range("G2")
    .Offset(o, 7).Value = Range("H2")
    .Offset(o, 8).Value = Range("I2")
    .Offset(o, 9).Value = Range("J2")
    .Offset(o, 10).Value = Range("K2")
    .Offset(o, 11).Value = Range("L3")
    .Offset(o, 12).Value = Range("M2")
    .Offset(o, 13).Value = Range("N2")
    .Offset(o, 14).Value = Range("O2")
    .Offset(o, 15).Value = Range("P2")
    .Offset(o, 16).Value = Range("q2")
    .Offset(o, 17).Value = Range("Q3")
    .Offset(o, 18).Value = Range("S3")
    .Offset(o, 19).Value = Range("T3")
    .Offset(o, 23).Value = Range("X2")
    .Offset(o, 24).Value = Range("Y2")
    .Offset(o, 25).Value = Range("Z2")
    .Offset(o, 26).Value = Range("AA2")
    .Offset(o, 27).Value = Range("AB2")
    .Offset(0, 28).Value = "=COUNT(RC[-8]:RC[-6])"
    .Offset(o, 32).Value = "=RC[-15]-RC[-17]"
    .Offset(o, 33).Value = "=IF(RC[-22]=RC[-25],RC[-24]*RC[-19],0)"
    .Offset(o, 34).Value = "=IF(RC[-23]>RC[-26],-1*RC[-25]*RC[-20],0)"
    End With
    Unload Me
    ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
    False, AllowDeletingColumns:=True, AllowDeletingRows:=True, AllowFiltering _
    :=True
End Sub