Selecting rows to end of data plus 1 more row to delete

[AgentMeow99]

This is the last item for my macro and I am hoping you can help me - PRETTY PLEASE??

The below code selects row 6 until the last line with data. I need it to go to my last line of data PLUS one more row, and then delete the chosen rows. Can you help me? After this one thing I am done with my task. Thank you in advance!

Sheets("Journal Report").Select
Rows("6").Select
Range(Selection, Selection.End(xlDown)).Select

ActiveWindow.SmallScroll Down:=3
Selection.Delete Shift:=xlUp

 

[JoeMo]

Sub AgentMeow99()
Dim R As Range
Set R = Range(Rows(6), Rows(6).End(xlDown))
R.Resize(R.Rows.Count + 1, R.Columns.Count).Delete shift:=xlUp
End Sub