Copy row above the row containing certain text

[mrjimmyvo]

I have a code to copy the entire row if column B contains a certain text ("ACK-", but now I need to copy the entire row directly above the one with the certain text ("ACK-". Is this even possible? Any help will be appreciated.

Sub HEA_Filter()
Dim strArray As Variant
Dim wsSource As Worksheet
Dim wsDest As Worksheet
Dim NoRows As Long
Dim DestNoRows As Long
Dim I As Long
Dim J As Integer
Dim rngCells As Range
Dim rngFind As Range
Dim Found As Boolean

strArray = Array("ack-")

Set wsSource = ActiveSheet

NoRows = wsSource.Range("A65536").End(xlUp).Row
DestNoRows = 1
Set wsDest = Sheets("Real Alarms")

For I = 1 To NoRows

Set rngCells = wsSource.Range("B" & I)
Found = False
For J = 0 To UBound(strArray)
Found = Found Or Not (rngCells.Find(strArray(J)) Is Nothing)
Next J

If Found Then
rngCells.EntireRow.Copy wsDest.Range("A" & DestNoRows)

DestNoRows = DestNoRows + 1
End If
Next I
End Sub

 

[bsquad]

just add offset(-1) to your entire row copy

rngCells.EntireRow.Offset(-1).Copy wsDest.Range("A" & DestNoRows)

 

[mrjimmyvo]

just add offset(-1) to your entire row copy

rngCells.EntireRow.Offset(-1).Copy wsDest.Range("A" & DestNoRows)

Thanks!!!

Sorry I'm a super noob. Your code copied the directly above my target, but a super noob question is how do I get both?
(the target and row above target)?

 

[bsquad]

sure absolutely,

rngCells.EntireRow.Offset(-1).Resize(2).Copy wsDest.Range("A" & DestNoRows)