输入数据后需要一个宏来自动填充“ x”行

Question

Please if possible, could use some help with a Macro I have written out. The macro pastes a range of data to the active spreadsheet.I then have a inputbox that allows the user to input a selection into the first row of Column A in the new selection. All I need is for the selection to paste down 3 rows of what they enter into instead of one( with formatting intact). I hope this makes sense and happy to clarify anything.

Thank for you any help you can give me.

Code Below:

Sub NewSection()

'adds a new section to the last row of the active spreadsheet'

    Application.ScreenUpdating = False
    Dim copySheet As Worksheet
    Dim pasteSheet As Worksheet

    Set copySheet = Worksheets("zDATA")
    Set pasteSheet = ActiveSheet


    copySheet.Range("ClientSection").Copy
    pasteSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Application.ScreenUpdating = True

'Text box for entering client name into the new section'
Dim ans As String, lr As Long
ans = InputBox("Enter Client Name", "Data Entry Form")
If ans = "" Then
    Exit Sub
Else
    lr = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & lr).Value = ans
End If

End Sub

Answer 1

由Virtual David和Foxfire回答！