Hello friends,

I have a template progress card in range a1:y18.
I have set the row height of it as per my requirement for printing.
I want to copy it and set the same row height for all the progress cards the user has created by entering the requirement in the input box.
The each card contains 18 rows. For example:

The template card range a1:y18 to be copy
Second card from 19th row onward containing 18 rows each.

In short I want the same row height for all the cards as per the template card range a1:y18 for all created cards.

Option Explicit

Sub SetRowHeight()
Dim r As Long
Dim rc As Variant

rc = InputBox("Please enter the card numbers to set row height.")

With Application
.ScreenUpdating = False
.EnableEvents = False
End With

ActiveSheet.Range("A1:Y18").Copy

With ActiveSheet.Range("A19:Y36") 'here I want a repeated action to set row height as per the user's requirement enter in the input box
       For r = 1 To .Rows.Count
    Sheets("ProgressCard").Rows(r).RowHeight = .Rows(r).RowHeight
Next r
End With

Application.CutCopyMode = False
MsgBox "done"

With Application
.EnableEvents = True
.ScreenUpdating = True
End With

End Sub
Any help will be highly appreciated.

Thanking you in anticipation.