copy value from above

[muh6323]

i want to copy value from above cell and paste up to 5 cells

only

 

[Yongle]

Welcome to the forum
Select the cell to be copied and run macro below

Sub CopyCell()
    Dim x As Long:      x = Application.InputBox("how many?", "", 5, , , , , 1)
    Dim cel As Range:   Set cel = ActiveCell
    If x > 5 Then x = 5
    cel.Copy cel.Offset(1).Resize(x)
End Sub

 

[Peter_SSs]

Welcome to the MrExcel board!

Could it be this? (Test with a copy of your data)

Sub CopyMultiples()
  Dim c As Range
  Const NumCopies As Long = 5
  
  For Each c In Columns("A").SpecialCells(xlConstants)
    c.Copy Destination:=c.Resize(NumCopies + 1)
  Next c
End Sub