Перенос ячеек внутри файла excel

Sub Export()
    Dim k, n, i As Integer
    Dim mas1(1022, 1000) As Integer, mas2(3, 22907)
    For k = 1 To 1022
        For n = 1 To 22907
            If mas1(k, 1) = mas2(1, n) Then
                For i = 1 To 1000
                    If mas1(3, i) = mas2(2, n) Then
                        mas1(k, i) = mas2(3, n)
                    End If
                Next i
            End If
        Next n
    Next k
End Sub

On Error Resume Next

Sub Export()
    Dim k, n, i As Integer
    For k = 1 To 1022
        For n = 1 To 22907
            If Worksheets("Main").Cells(k, 1) = Worksheets(List2).Cells(1, n) Then
                For i = 1 To 1000
             If Worksheets("Main").Cells(3, i) = Worksheets(List2).Cells(2, n) Then
        Worksheets("Main").Cells(k, i)= Worksheets(List2).Cells(3, n)
                    End If
                Next i
            End If
        Next n
    Next k
End Sub

Sub Export()
    Dim k, n, i As Integer
    For k = 4 To 21
        For n = 1 To 617
            If Worksheets("Лист1").Cells(k, 1) = Worksheets("Лист2").Cells(n, 1) Then
                For i = 1 To 192
                 If Worksheets("Лист1").Cells(3, i) = Worksheets("Лист2").Cells(n, 2) Then
                Worksheets("Лист1").Cells(k, i) = Worksheets("Лист2").Cells(n, 3)
                    End If
                Next i
            End If
        Next n
    Next k
End Sub

Private range1 As Range
Private range2 As Range
 
Private Sub setRanges()
    Set range1 = ActiveWorkbook.Worksheets(1).Range("A1:GJ21")
    Set range2 = ActiveWorkbook.Worksheets(2).Range("A1:C617")
End Sub
 
Private Sub mySub()
    On Error GoTo ExitGo:
    Dim RowCount As Integer
    RowCount = range2.Rows.count
    Dim i As Integer
    i = 4
    Dim num As Integer
    num = Number(i)
    For Row = 1 To RowCount
        If range2(Row, 1) = num Then
            Dim colCount As Integer
            colCount = range1.Columns.count
            For col = 1 To colCount
                If range2(Row, 2) = range1(3, col) Then
                    range1(i, col) = range2(Row, 3)
                    Exit For
                End If
            Next col
        Else
            i = i + 1
            num = Number(i)
        End If
    Next Row
ExitGo:
RowCount = Empty
num = Empty
colCount = Empty
End Sub
 
Private Function Number(i As Integer) As Integer
    Number = range1(i, 1)
End Function
 
Public Sub Solve()
    Call setRanges
    Call mySub
Set range1 = Nothing
Set range2 = Nothing
End Sub

Sub Export()
    n = 1
    Do While Sheets("Лист2").Cells(n, 3) <> Empty
        data = Sheets("Лист2").Cells(n, 3)
        bank_id = Sheets("Лист2").Cells(n, 1)
        account = Sheets("Лист2").Cells(n, 2)
        Sheets("Лист1").Activate
        'ищем строчку с банком
        Set x = Cells.Find(bank_id, lookat:=xlWhole)
        If Not x Is Nothing Then
            Cells.Find(bank_id, lookat:=xlWhole).Activate
            i = ActiveCell.Row
        Else: i = 0
        End If
        'ищем столбец со счётом
        Set y = Cells.Find(account, lookat:=xlWhole)
        If Not y Is Nothing Then
            Cells.Find(account, lookat:=xlWhole).Activate
            j = ActiveCell.Column
        Else: j = 0
        End If
        'вставляем переменную, если нашёлся соответствующий счёт и банк
        If i <> 0 And j <> 0 Then
        Sheets("Лист1").Cells(i, j) = data
        End If
    n = n + 1
    Loop
End Sub

Sub export()
 
Dim i, j, k, l As Integer
Dim c1, r1, r2 As Variant
 
c1 = 192 
r1 = 21 
r2 = 617 
 
Dim indxClmn, indxRw, expArray As Variant
 
ReDim indxClmn(4 To c1, 2) As Variant
ReDim indxRw(4 To r1, 2) As Variant
ReDim expArray(1 To r2, 3) As Variant
 
expArray = Worksheets("Лист2").Range(Cells(1, 1), Cells(r2, 3))
 
For i = 4 To c1
    indxClmn(i, 1) = Worksheets("Лист1").Cells(3, i).Value
    indxClmn(i, 2) = Worksheets("Лист1").Cells(3, i).Column
Next i
 
For i = 4 To r1
    indxRw(i, 1) = Worksheets("Лист1").Cells(i, 1).Value
    indxRw(i, 2) = Worksheets("Лист1").Cells(i, 1).Row
Next i
 
For i = 1 To r2
 
    For j = LBound(indxClmn) To UBound(indxClmn)
        
        If expArray(i, 2) = indxClmn(j, 1) Then
        k = indxClmn(j, 2)
        Exit For
        End If
    Next j
    
    For j = LBound(indxRw) To UBound(indxRw)
        
        If expArray(i, 1) = indxRw(j, 1) Then
        l = indxRw(j, 2)
        Exit For
        End If
    
    Next j
    
    Worksheets("Лист1").Cells(l, k) = expArray(i, 3)
    
Next i
End Sub

    On Error GoTo ExitGo:
    Dim RowCount As Integer
    RowCount = range2.Rows.Count
    Dim bankcount  As Integer
    bankcount = range2.Rows.Count
    Dim i As Integer
    i = 4
    Dim num As Integer
    num = Number(i)
    For Row = 1 To RowCount
        Do While num <> range2(Row, 1)
            i = i + 1
            If i > bankcount Then
                GoTo ExitGo:
            Else
                num = Number(i)
            End If
        Loop
        Dim colCount As Integer
        colCount = range1.Columns.Count
        For col = 1 To colCount
            If range2(Row, 2) = range1(3, col) Then
                range1(i, col) = range2(Row, 3)
                Exit For
            End If
        Next col
    Next Row
ExitGo:
RowCount = Empty
num = Empty
colCount = Empty
bankcount = Empty
End Sub