Sub XaiChung2SuKien(Sh As Worksheet, MaHH As String)
Dim Rng As Range, sRng As Range
Dim MyAdd As String
Dim Rws As Long, W As Integer, Dm As Integer
ReDim Arr(1 To 9, 1 To 8)
With Sh
Rws = .[E4].CurrentRegion.Rows.Count
Set Rng = .[e3].Resize(Rws)
Set sRng = Rng.Find(MaHH, , xlFormulas, xlWhole)
If sRng Is Nothing Then
Arr(1, 2) = "Nothing!": Arr(1, 1) = "GPE.COM:"
W = 1
Else
MyAdd = sRng.Address
Do
W = W + 1: Arr(W, 1) = sRng.Offset(, -3).Value
Arr(W, 2) = sRng.Offset(, -2).Value
For Dm = 1 To 6
Arr(W, Dm + 2) = sRng.Offset(, Dm).Value
Next Dm
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
End If
If Sh.Name = "Sheet1" Then
[A5].Resize(W, 8).Value = Arr()
Else
[A14].Resize(W, 8).Value = Arr()
End If
End With
End Sub