Excel 在活动单元格周围选择特定单元格？

下面的代码用于从第6行向下选择C列中的非空白单元格。对于选定的每个单元格，我现在希望代码也选择该行第1列到第10列中的单元格-但我正在努力！任何帮助都会很好

Sub EnquiryPrep()
Dim x As Integer
Dim rng As Range
With Sheets("Sheet 1")
LR = .Range("C" & Rows.Count).End(xlUp).Row
For Each cell In .Range("C6:C" & LR)
    If cell.Value <> "" Then
        If rng Is Nothing Then
            Set rng = (cell)
        Else
            Set rng = Union(rng, cell)
        End If
    End If
    Next cell
rng.Select
End With
End Sub

子查询rep（）
作为整数的Dim x
变暗rng As范围
附页（“第1页”）
LR=.Range（“C”和Rows.Count）.End（xlUp）.Row
范围内的每个单元格（“C6:C”和LR）
如果单元格的.Value为“”，则
如果rng不算什么，那么
设置rng=（单元格）
其他的
设置rng=联合（rng，单元）
如果结束
如果结束
下一个细胞
rng.选择
以
端接头

也许只是

Sub EnquiryPrep()
Dim x As Integer
Dim rng As Range
With Sheets("Sheet 1")
LR = .Range("C" & Rows.Count).End(xlUp).Row
For Each cell In .Range("C6:C" & LR)
    If cell.Value <> "" Then
        If rng Is Nothing Then
            Set rng = cell.offset(, -2).resize(, 10)
        Else
            Set rng = Union(rng, cell.offset(, -2).resize(, 10))
        End If
    End If
    Next cell
rng.Select
End With
End Sub

子查询rep（）
作为整数的Dim x
变暗rng As范围
附页（“第1页”）
LR=.Range（“C”和Rows.Count）.End（xlUp）.Row
范围内的每个单元格（“C6:C”和LR）
如果单元格的.Value为“”，则
如果rng不算什么，那么
设置rng=单元格。偏移量（，-2）。调整大小（，10）
其他的
设置rng=Union（rng，单元格。偏移量（，-2）。调整大小（，10））
如果结束
如果结束
下一个细胞
rng.选择
以
端接头