Excel VBA Macro to Auto Fill a Specified Number of Times & Copy the Same

Excel VBA Macro to Auto Fill a Specified Number of Times & Copy the Same

Sub FillnCopy()
Dim x As Integer
Dim y As Integer
Dim z As Integer

On Error GoTo Err1:
y = InputBox("Enter The Desired No.of Times To Fill:")

For x = 1 To y - 1
z = z + 1
ActiveCell.Offset(z, 0) = ActiveCell.Value
Next x

Range(ActiveCell.Offset(z, 0), ActiveCell.Offset(z - (y - 1), 0)).Copy
Err1:
End Sub

Thanks,Tamatam