anpassung Berich markieren kopieren

Sub SelektierteUeberEach()
Dim rngZelle As Range
Dim inti As Integer
Dim strText As String
inti = 1
For Each rngZelle In Selection.SpecialCells(xlCellTypeVisible)
strText = rngZelle
Sheets("Tabelle2").Cells(inti, 1) = strText
inti = inti + 1
Next
End Sub

aber jetz muss ich immer in spalte A und B bereich Markieren und Daten von Spalte A in tabelle2 spalte A kopieren und Daten von Spalte B in Tabelle2 Spalte C Kopieren.
Grusse
Karel