Help with code to Add Rows

[MadMatt]

HI All, I'm trying to merge 2 command butons from the same workbook but on different sheets. The command button work fine by them self the code for them is below

Private Sub CommandButton1_Click()
Rows("11").Select
Selection.Insert Shift:=xlDown
Rows("11").Select

End Sub

Private Sub CommandButton1_Click()
Sheets("Punch Detail").Select
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

I'm not to good at code yet but I tried this but it won't work the code is below.

Private Sub CommandButton1_Click()
Rows("11").Select
Selection.Insert Shift:=xlDown
Rows("11").Select
Sheets("Punch Detail").Select
Application.CutCopyMode = False
Rows("5:5").Select
Selection.Copy
Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
End Sub

Could somone please help me with this code as I'm not good at it yet and don't no many of the functions in excel.

Thanks Matt

 

[MadMatt]

Hi Jindon got it worked out with this code. Thankyou for your help!

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim cell As Range
Rows(11).EntireRow.Insert
For Each cell In Intersect(ActiveSheet.UsedRange, Selection.Offset(-1, 0).EntireRow)
If cell.HasFormula Then
cell.Copy cell.Offset(1, 0)
End If
Next
Application.ScreenUpdating = True
With Sheets("Punch Detail")
.Rows(5).Insert
.Rows(4).Copy .Cells(5, 1).End(3)(2)
End With
End Sub