指定した特定の文字を置き換えて空白削除

'指定した特定の文字を置き換えて空白削除
'「ヒント」A列にテスト 1と入れる際の空白は半角で入れて下さい
Sub WordReplace()

    Dim Ws1 As Worksheet
    Set Ws1 = Worksheets("Sheet1")
    
    Dim i As Long
    Dim Cend As Long
    
    Cend = Ws1.Range("A1048576").End(xlUp).Row
    
    For i = 1 To Cend
    
        If Ws1.Cells(i, 1) = "テスト 1" Then
           Ws1.Cells(i, 1) = Replace(Ws1.Cells(i, 1), "テスト 1", "テスト1")
           
        ElseIf Ws1.Cells(i, 1) = "テスト 2" Then
               Ws1.Cells(i, 1) = Replace(Ws1.Cells(i, 1), "テスト 2", "テスト2")
               
        End If
        
    Next i
    
End Sub