Sub siirra()
    If Selection.Columns.Count() = 1 Then
        For Each cell In Selection
            If Len(cell.Value) > 0 Then
                If IsNumeric(cell.Value) = True Then
                    If Int(cell.Value) = cell.Value And cell.Value > 1 Then
                        cell.Offset(0, 1).Cut cell.Offset(0, cell.Value)
                    End If
                End If
            End If
        Next
    End If
End Sub