Sortering med VBA

Jeg har en userform, der tilføjer de data brugeren indtaster vha. denne kode:

ActiveCell.Value = txtKlatrer.Value
    ActiveCell.Offset(0, 1).Value = txtTop.Value
    ActiveCell.Offset(0, 2).Value = txtTopTry.Value
    ActiveCell.Offset(0, 3).Value = txtZone.Value
    ActiveCell.Offset(0, 4).Value = txtZoneTry.Value
    ActiveCell.Offset(1, 0).Select
    txtKlatrer.Value = "" ' nulstiller værdier i userform
    txtTop.Value = ""
    txtTopTry.Value = ""
    txtZone.Value = ""
    txtZoneTry.Value = ""

Det virker fint, men jeg vil gerne have Excel til også at sortere rækkerne, først faldende efter kolonnen Antal top, dernæst (hvis to tal i Antal top er ens) stigende efter kolonnen Antal topforsøg, dernæst (hvis også to tal i Antal topforsøg er ens) faldende efter kolonnen Antal zone og endelig hvis det også skulle ske at to tal i Antal zone er ens) stigende efter kolonnen Antal zoneforsøg. Hvordan gør jeg det?