Public Sub CopyRows()
    Dim lngI As Long
    Dim ws1 As Excel.Worksheet
    Dim ws2 As Excel.Worksheet
    Dim rng As Excel.Range
    
    Set ws1 = ThisWorkbook.Worksheets("Лист1")
    Set ws2 = ThisWorkbook.Worksheets("Лист2")
    Set rng = ws1.Range("B65536").End(xlUp)
    
    For lngI =  2  To rng.Row
        ws1.Range("B" & lngI).EntireRow.Copy _
          Destination:=ws2.Range("B" & lngI).EntireRow
    Next lngI
End Sub

Public Sub RangeToVariable()
    Dim strValue As String
    
    strValue = Worksheets( 1 ).Range("A1")
    
    Debug.Print strValue
End Sub

Public Sub RangeToArray()
    Dim avarValues As Variant
    Dim lngI As Long
    Dim lngJ As Long
    
    avarValues = Worksheets( 1 ).Range("A1:B5")
    
    ' Получиться массив avarValues(1 To 5, 1 To 2).
    
    For lngI =  1  To UBound(avarValues)
        For lngJ =  1  To  2 
            Debug.Print avarValues(lngI, lngJ);
        Next lngJ
       Debug.Print
    Next lngI
End Sub