set qwerty=workbooks.add
работаем с объектом qwerty
qwerty.close false
Application.CutCopyMode = False

Sub tt()
    Dim a, i&

    With CreateObject("Scripting.Dictionary")
        a = Sheets("base").[a1].CurrentRegion.value
        For i = 2 To UBound(a)
            .Item(a(i, 2)) = a(i, 3)
        Next

        a = Sheets("next").[a1].CurrentRegion.Columns(3).value
        For i = 1 To UBound(a)
            a(i, 1) = .Item(a(i, 1))
        Next
    End With

    Sheets("next").[a1].CurrentRegion.Columns(3).Offset(, 4).value = a
        '5. Сообщение, чтобы юзер понял, что макрос закончил работу.
    MsgBox "Готово, если ещё не понял :).", vbInformation
End Sub

Private Sub CommandButton1_Click()
Dim nomer_stroki As Long, massiv() As Variant, i As Integer, j As Integer
nomer_stroki = ActiveCell.Row
massiv = Range(Cells(nomer_stroki, 1), Cells(nomer_stroki, 10))
With sh1
    For i = 1 To 10
        .Range("yacheyka_" & i) = massiv(1, i)
    Next
End With
With sh2
    For i = 1 To 10
        .Range("yacheyka_" & i) = massiv(1, i)
    Next
End With
With sh3
    For i = 1 To 10
        .Range("yacheyka_" & i) = massiv(1, i)
    Next
End With
End Sub