如果Excel VBA中的条件满足，如何剪切和粘贴单元格区域

Dim sourceRange As Range
Dim targetRange As Range

' 定义条件和要操作的单元格区域
If Range("A1").Value = "满足条件" Then
    Set sourceRange = Range("A1:C3")
    Set targetRange = Range("E1")
End If

' 剪切和粘贴单元格区域
If Not sourceRange Is Nothing Then
    sourceRange.Cut
    targetRange.PasteSpecial xlPasteAll
End If

Sub CutAndPasteCells()
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 定义条件和要操作的单元格区域
    If Range("A1").Value = "满足条件" Then
        Set sourceRange = Range("A1:C3")
        Set targetRange = Range("E1")
    End If
    
    ' 剪切和粘贴单元格区域
    If Not sourceRange Is Nothing Then
        sourceRange.Cut
        targetRange.PasteSpecial xlPasteAll
    End If
End Sub