Slet en række med VBA

Hej

Jeg skal have slettet en hel række og et ark. Jeg har følgende kode og ark. Hvet nr har også et ark. Hvordan får jeg slettet rækken. NrListe1 er enten 3, 6 eller 4 i eksemplet alt efter hvad der vælges i en userform

Følgende er mit ark

Nr  Tekst    Tekst    Tekst
3    ----    -----    -----
6    ----    -----    -----
4    ----    -----    -----
osv


Private Sub OK_Click()
SletBukkeliste.Hide

Dim Nummer As Variant

Nummer = NrListe1
Sheets(Nummer).Delete
Rows("30:30").Delete
End Sub