Sub InsertData()
' типизированные переменные работают быстрее
Dim k As Long
Dim S As String
Dim C As Long
Dim R As Long
Dim D As String

    SourData = "Лист с данными" 'Здесь вписываем название листа с данными
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
        
        With Sheets(SourData) 'эта конструкция тоже прибавит скорости
            k =  2 
            While .Cells(k,  1 ) <> ""
                S = .Cells(k,  1 )
                C = .Cells(k,  2 )
                R = .Cells(k,  3 )
                D = .Cells(k,  4 )
                Sheets(S).Cells(R, C) = D
                k = k +  1 
            Wend
        End With
        
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub