Copy and paste set of rows repeatedly at click of button

Please see the file attached!!

Please revert if this was not what you were looking for!!

But you will have to Protect/Unprotect sheet for which I can write you a line of code..

Thank You,

Deep

Just change the code to this -

Sub FillForm()

    Dim LR As Integer
    
    Sheets("Current").Unprotect Password:=""
    
    LR = Sheets("Current").Cells(Rows.Count, 2).End(xlUp).Row + 3
    
    Range("B" & LR - 25 & ":" & "H" & LR).Copy
    
    Cells(LR + 1, 2).Select
    
    ActiveCell.PasteSpecial
    
    ActiveCell.Select
    
    Application.CutCopyMode = False
    
    ActiveSheet.Protect Password:="", DrawingObjects:=False, Contents:=True, Scenarios:= _
            False

End Sub

Wherever Password:="" is mentioned, you can put your desired Password between "".

Thank You,

Deep

Glad it helped!!

Cheers!!

Deep