Hjælp til ændring i VBA kode

Jeg har fundet følgende VBA kode fra Supertekst, men jeg er ikke kyndig i VBA
kan man ændre i koden så den ikke  samler svarene i A1 på det aktuelle ark  men i stedet på Ark 1  A62 ? ( alle samlinger foregår på Ark 1)
Jeg har brug for at lave ca. 10 selvstændige koder med forskellige celler som det skal samles i feks. er den næste i A77
Jeg har svarene på et andet ark, ( ark 6 - H5 )


Dim antalKol As Integer, antalRæk As Long
Dim ræk As Long, kol As Integer, værdi, nyRæk As Long
Public Sub samlingAfKolonner()
    antalKol = ActiveCell.SpecialCells(xlLastCell).Column
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
Rem find første ledige celle i kol A
    nyRæk = findFørsteLedigeKolA
   
    For kol = 2 To antalKol
        For ræk = 1 To antalRæk
            Cells(ræk, kol).Select
            værdi = Selection.Value
            If værdi <> "" Then
                Selection.ClearContents
                Cells(nyRæk, 1) = værdi
                nyRæk = nyRæk + 1
            End If
        Next ræk
    Next kol
End Sub
Private Function findFørsteLedigeKolA()
Dim ræk As Long
    For ræk = 1 To antalRæk
        If Range("A" & ræk) = "" Then
            findFørsteLedigeKolA = ræk
            Exit Function
        End If
    Next ræk
    findFørsteLedigeKolA = antalRæk + 1
End Function