Hjælp til fejlmeddelse

Hej!
Jeg har på ark1 en listbox og en komand knap. Jeg har lavet en makro så når brugeren vælger noget i listbox og trykker på knap så indsættes 3 rækker fra andre ark på ark1.
Makroen består af mange blokke som er næsten identiske, men efterhånden har jeg lavet mange blokke så jeg får fejlmeddelelse :" Compile error-Procedure too large.
Hvad kan jeg gøre?
If ListBox1.Value = "Delta" Then

Worksheets("vj").Range("4:4").Copy
   
    With Worksheets("Ark1").Range("24:24")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
    Worksheets("vj").Range("5:5").Copy
    With Worksheets("Ark1").Range("26:26")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
    Worksheets("vj").Range("6:6").Copy
    With Worksheets("Ark1").Range("27:27")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
  End If

If ListBox1.Value = "Dba" Then
Worksheets("vj").Range("8:8").Copy
   
    With Worksheets("Ark1").Range("24:24")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
    Worksheets("vj").Range("9:9").Copy
    With Worksheets("Ark1").Range("26:26")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
    Worksheets("vj").Range("10:10").Copy
    With Worksheets("Ark1").Range("27:27")
        .PasteSpecial xlPasteValues
        .PasteSpecial xlPasteComments
    End With
    End If

osv....