excel - A 열에 텍스트가있는 경우 행 삽입

이 VBA 코드를 찾았습니다 :

Sub InsertRev()
Dim c As Range
Set Rng = ActiveSheet.Range("A1:A5000")
For dblCounter = Rng.Cells.Count To 1 Step -1
    Set c = Rng(dblCounter)
    If c.Value Like "*Card Number:*" Then
    c.EntireRow.Insert
End If
Next dblCounter
End Sub

하지만 A에 특정 텍스트가있는 경우에만 작동합니다. 텍스트가있는 A 열의 셀 위에 행이 삽입되어 있으면 변경할 방법이 있습니까? 행이 위에있는 열 A와 동일한 값을 가질 수 있습니까 (따라서 A1에 텍스트가 있으면 행이 A1 값 (현재 A2)으로 삽입 됨).