Variable ändert sich während der Schleife

Sub ruft das unter 

Sub "copy" auf. In "copy" wird die variable "pos" definiert als die maximale zeilen anzahl im    _
_
_
aktuellen Blatt.
Falls "pos" > 1 ist soll der vorher kopierte Bereich bei pos+1 eingefügt werden.
Wenn das Blatt gefüllt wird springt pos aber automatisch auf die neue maximale spaltenanzahl  _
und bringt mir dadurch die Fehlermeldung "Anwendungs und objektdefinierter Fehler"  _
Laufzeitfehler '1004'
Meine Idee wäre es den Wert der Variable für den Schleifendurchlauf einzufrieren damit sich  _
nach der Definition sich der Wertbis zum nächsten Durchlauf nicht mehr verändert.
Anbei der aktuelle Code.
Option Explicit

Sub copy()
Dim pos As Long
pos = Worksheets(Family).Cells(Rows.Count, 1).End(xlUp).Row
With Worksheets("Data").Range("G:G,J:J,S:S,T:T,U:U").copy
If pos = "1" Then
Worksheets(Family).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,  _
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Else
Worksheets(Family).Range(Cells(pos + 1, 1)).PasteSpecial Paste:=xlPasteValues,  _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If
End With
End Sub