Sub zamiana()
Dim macierz(1 To 3, 1 To 3), wiersz As Byte, kolumna As Byte, licznik As Byte
Dim temp As Byte, i As Byte
'przypisanie danych do macierzy
For wiersz = 1 To 3
    For kolumna = 1 To 3
        licznik = licznik + 1
        macierz(wiersz, kolumna) = licznik
    Next kolumna
Next wiersz

Range("A1:C3") = macierz 'wyprowadzenie do arkusza
'zamiana
For i = 1 To 3
temp = macierz(1, i) 'zapisuję element
macierz(1, i) = macierz(3, i) 'przepisuję elemnty macierzy
macierz(3, i) = temp 'przypisuję zapisany element
Next i

Range("E1:G3") = macierz 'wyprowadzenie do arkusza
End Sub