Excel Forum

Code: Select all

Sub Button_250()
Call LoopRange("250")
End Sub
Sub LoopRange(cell As String)
    Dim rngAll As Range
    Dim r As Range
    Dim i As Integer
    With Worksheets("Sheet1")("Sheet2")("Sheet3")
        Set rngAll = .Range("A1:A3")
        For i = 1 To 1
            For Each r In rngAll.Columns(i).Cells
                If r.Value = "" Then
                    r.Value = cell
                    Exit Sub
                End If
            Next r
        Next i
    End With
End Sub