Excel 创建宏以分隔数据

您好，我是一个新的使用excel，只有在设计宏的基本知识。我希望能够设计一个宏，可以根据公司唯一id将不同的发票详细信息分离到单独的表格中。唯一的问题是有两三行需要一起移动。我该怎么做呢

例如：

---

下面是数据的示例图片。我想做的是复制第1行和第2行中的H和N，并在第D行中的值上深化

Sub Macro1()
    Dim dat As Variant
    Dim rng As Range
    Dim i As Long
    Dim cntr As Integer
    cntr = 1

    Set rng = [A1:A5]
    dat = rng  ' dat is now array (1 to 5, 1 to 1)
    For i = LBound(dat, 1) To UBound(dat, 1)
        If rng(i, 1).Offset(0, 3).Value > 25 Then
            Sheets("Sheet2").Range("A" & cntr).Value = Range("A" & i).Value
            cntr = cntr + 1
        End If
    Next
End Sub

---

请添加图像和示例，说明数据的位置、命名范围以及您已经尝试过的内容。如果数据是静态的，那么只需记录你选择数据并复制粘贴的宏。我已经编辑了我的问题并添加了一张图片，我希望它有意义