Sub Test()
    Dim LastRow As Long, LastCol As Long, iRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        For iRow = 5 To LastRow
            LastCol = .Cells(iRow, .Columns.Count).End(xlToLeft).Column
            If LastCol >= 9 Then
                If .Cells(iRow, LastCol) <> 0 Then
                    .Cells(iRow, 3) = .Cells(iRow, LastCol)
                End If
            End If
        Next iRow
    End With
End Sub