Vielen Dank für die schnelle Antwort und sorry, falls es undeutlich war:

Also die Erste Zeile ist die Zeile der Überschriften (A1: Vermittler B1: Sparte C1: VSNR D1: Vorname E1: Nachname etc.)

Quellblatt sollte "Tabelle1" heißen, Zielblatt "Tabelle2"

Nun soll z.B. Vermittler aus A1 in Tabelle1 zu C1 in Tabelle 2 werden, außerdem soll Vermittler nun Vermittler-ID heißen. Alle Werte die unter A1 stehen (also z.B. A2:A100) sollen mitkopiert werden (also in Tabelle2 zu C2:C100 werden). Wie viele Daten in einer Reihe stehen kann ich aber nicht vorhersagen - es können mal 100 und mal 5 sein.

Aus Sparte in Tabelle1 B: soll Tabelle2 N: werden.

Die Werte in Tabelle1 Reihe C sollen in Tabelle2 in Reihe F stehen usw. usw.

Die eingegebenen Werte sind alles nur Strings (Datum,Zahlenreihe oder Name) und sollen auch einfach als diese wieder ausgegeben werden.

Prinzipiell will ich einfach nur "Tabelle1" zu "Tabelle2" kopieren und dort dann die Reihen in eine gewünschte Reihenfolge verschieben. Ich habe mal weiter dran gearbeitet und die Fehler bereinigt. Hier ist also wie die einzelnen Werte heißen, wo sie sind und wohin sie sollen.

A: Vermittler soll zu C

B: Sparte  N

C: VSNR zu F

D: Vorname zu H

E: Name zu G

F: Courtage zu Y

G: Courtageart zu Z

H: Courtagesatz zu AC

I: Courtagebasis zu X

J: Fälligkeit zu A und zu B

K: Beginn zu Q

L: Ablauf zu R

M: Makler zu D

PS: Vielen Dank für die Hilfe!!

PPS: Hier der Code: 

Option Explicit
Sub Inhalt_verschieben()
    Dim temp As String
    Dim iRow As Long
    Dim iCol As Long
    Dim swapCol As Long
    Dim A As Long
    zeroTest As Integer
    Application.ScreenUpdating = False
    
    With ActiveSheet
    .Copy After:=Sheets(Worksheets.Count)
    .Name = "Tabelle" & Worksheets.Count + 1
    End With
    
    For zeroTest = 2 To 15 '65536
    A = Cells(zeroTest, 1).Value
        If A = " " Then
        Exit For
        End If
    Next zeroTest
    
    iRow = 1
    iCol = 1
    swapCol = 3
    
    For iRow = 1 To 15
            temp = Cells(iRow, iCol)
            Cells(iRow, iCol) = Cells(iRow, swapCol)
            Cells(iRow, swapCol) = temp
    Next iRow
    
    Application.ScreenUpdating = True
    
End Sub