Bereich kopieren

Sub VergleichNNCheck()
Dim arrNN As Variant
Dim wks1 As Worksheet
Dim n As Long
Dim lastRow1 As Long
Dim rng1 As Range
Dim rng2 As Range
Dim rng As Range
Dim i As Integer
Set wks1 = Sheets("Calc")
lastRow1 = IIf(wks1.Range("AV65536") <> "", 65536, _
wks1.Range("AV65536").End(xlUp).Row)
Set rng1 = Sheets("Calc").Range("AU19:AU" & lastRow1 + 1)
Set rng2 = Sheets("Calc").Range("AW19:AW" & lastRow1 + 1)
rng2 = rng1.Copy
End Sub