Zellen in andere Tabelle übernehmen und umformatie

Ist es möglich in folgendem VBA Code, die übernommenen Zellen die in Tabelle1 in einer Spalte stehen, daß sie in Tabelle2 in einer Zeile stehen, also anstatt Spalte2, alles in Zeile2?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
zeile = Target.Row
spalte = Target.Column
If Sheets(2).Cells(zeile, spalte) = "" Then Sheets(2).Cells(zeile, spalte) = Target

End Sub

Wäre sehr dankbar für einen Tipp!

Grüße Sandra