Copy macro in Delete macro

[ddoyle67]

I have a button in a workbook that has the below code that will delete the active row when pressed. I want to add code to it to copy row 75 to row 76. so I don't keep running out of rows with the formulas in them. Any help with this?

Private Sub CommandButton2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Job Board")
Dim pk As Integer

If ActiveCell.Row > 4 Then
pk = MsgBox("Do you want to delete this job?", vbQuestion + vbYesNo)

If pk = 7 Then Exit Sub

sh.Unprotect "david"

ActiveCell.EntireRow.Delete

sh.Protect "david"

End If

End Sub

 

[JoeMo]

Untested.

Private Sub CommandButton2_Click()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Job Board")
Dim pk As Integer

If ActiveCell.Row > 4 Then
pk = MsgBox("Do you want to delete this job?", vbQuestion + vbYesNo)

If pk = 7 Then Exit Sub

sh.Unprotect "david"

ActiveCell.EntireRow.Delete
sh.Rows("75:76").FillDown
sh.Protect "david"

End If

End Sub

 

[ddoyle67]

that worked, thank you

 

[JoeMo]

that worked, thank you

you are welcome - thanks for the reply.