Ændre makro

Denne makro søger i område a10:A250 efter den samme værdi som i celle a5 og når den finder den samme værdi kopires de værider som ligger til højre for den fundne værdi over i ark2. Jeg ønsker at ændre makro så den kopirer cellerne under den fundende værdi. f.eks et område på 20 celler under den fundende værdi.



Hvordan ændrer jeg  makro så den kopiere celler
Private Sub CommandButton2_Click()

    Dim rFound As Range
    Dim rLook As Range
  Dim rValue As String
    Dim rDest As Range
    rValue = Ark1.Range("A5")
    Set rLook = Ark1.Range("A10:A250")
    Set rDest = Worksheets("Ark2").Range("A1")
   
   

    Set rFound = rLook.Find(rValue, , , xlWhole)
    If Not rFound Is Nothing Then
        rFound.Offset(, 1).Resize(1, 20).Copy
        rDest.PasteSpecial xlValues
        rDest.PasteSpecial xlPasteComments
        Set rDest = rDest.Offset(1, 0) 'reset the dest range to 1 row below
    End If
    'reset the range and do again
    Set rLook = Worksheets("Ark3").Range("a5:a25")
    Set rFound = rLook.Find(rValue, , , xlWhole)
    If Not rFound Is Nothing Then
        rFound.Offset(, 1).Resize(1, 20).Copy
        rDest.PasteSpecial xlValues
        rDest.PasteSpecial xlPasteComments
        Set rDest = rDest.Offset(1, 0)
    End If
   
    Set rLook = Worksheets("Ark4").Range("a1:a32")
    Set rFound = rLook.Find(rValue, , , xlWhole)
    If Not rFound Is Nothing Then
        rFound.Offset(, 1).Resize(1, 20).Copy
        rDest.PasteSpecial xlValues
        rDest.PasteSpecial xlPasteComments
        Set rDest = rDest.Offset(1, 0)
    End If
   
   
End Sub