Sub Macro1()
Dim LastRow As Long, i As Long, Rng As Range, iCol As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 5 To LastRow
        If Cells(i, 1) = 1 Then
            With Worksheets(Cells(i, 2).Value)
            .Cells(Cells(i, 4), Cells(i, 3)) = Cells(i, 5)
            End With
        End If
    Next
End Sub