Redigering af makro

Er der en herinde der kan hjælpe mig med en lille ændring i nedenstående makro. Jeg vil gerne have den til i sidste del at lægge resultatet på et andet ark end det aktive. Kan det lade sig gøre?

Dim rng1 As Range
Dim rng2 As Range
Dim resultat()
   
Set rng1 = Range("A5:A" & Range("A15").End(xlUp).Row)
Set rng2 = Range("a87:a" & Range("a87").End(xlUp).Row)
   
ReDim resultat(1 To rng1.Cells.Count * rng2.Cells.Count, 1 To 2)
    For Each c In rng1
        For Each c1 In rng2
            x = x + 1
            resultat(x, 1) = c
            resultat(x, 2) = c1
        Next
    Next