Sub fill2()
'
' fill2 Macro
'

'

   Declare the Variables
    Dim intRng As Integer 'Get the Range of rows from the user
    Dim strStart As String  'Assign the Starting Range
    Dim strEnd As String 'Assign the Ending Range
    Dim intI As Integer 'For Loop
    Dim strRange As String 'Concatenate the strStart and strEnd 
    Dim strVal As String 'Get the Value of the cell

    'Get the input from the use for no. of rows
    intRng = InputBox("Enter the No. of Rows?", "Fill the Blank")
    
     For Loop
    For i = 1 To intRng
        strStart = "A" & i Starting Range
        strEnd = "F" & i Ending Range
        strRange = strStart & ":" & strEnd Concatenation of strStart and strEnd
        strVal = Cells(i, 1)      'Value of the Cell
        If strVal <> "" Then      ' If the cell contain the values
            Range(strRange).Select     'Select the Row
            Selection.Copy      'Copy the row
        Else
           'The below process will be done until the cell is blank
            Range(strRange).Select
            Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                :=False, Transpose:=False
        End If
    Next
End Sub