Sub МесяцHUGO3()

Dim a(), b(), c()
Dim iLastrow As Long, iLastrowSvod As Long, i As Long, ii As Long, x As Long
Dim tm
tm = Timer
Dim bStart As Long
Dim bCount As Long
Dim aStart As Long
Dim aCount As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
 iLastrow = Sheets( 2 ).Cells(Rows.Count,  1 ).End(xlUp).Row
 iLastrowSvod = Sheets( 1 ).Cells(Rows.Count,  1 ).End(xlUp).Row
 a = Range(Sheets( 2 ).Cells( 2 ,  1 ), Sheets( 2 ).Cells(iLastrow,  1 ))
 b = Range(Sheets( 1 ).Cells( 3 ,  1 ), Sheets( 1 ).Cells(iLastrowSvod,  23 ))
 
ReDim c( 1  To iLastrow -  1 ,  1  To  21 )

bStart = LBound(b)
bCount = UBound(b)
aStart = LBound(a)
aCount = UBound(a)

For i = aStart To aCount
For ii = bStart To bCount
If a(i,  1 ) = b(ii,  1 ) Then
    For x =  1  To  21 
    c(i, x) = b(ii, x +  1 )
    Next
    Exit For
End If
Next
Next
Range(Sheets( 2 ).Cells( 2 ,  3 ), Sheets( 2 ).Cells(iLastrow,  23 )) = c

tm = Timer - tm
MsgBox tm
'Debug.Print tm
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub