I know that my english can be better. Please rate my work and not my lack in linguistic skills!

If you find any kind of ownership issue, or you think some content is your property. Please be so kind and contact me, i will remove or solve it ASAP.

You like my free Uploads and want to support me, than please donate here:

Sub X()
    Dim Chkval As String
    Dim rw As Integer
   
    rw = 2
    While Cells(rw, 1) <> ""
        Cells(rw, 4).Value = "Case " & Cells(rw, 1).Value
        rw = rw + 1
       
        Rows(rw).Insert
       
        Cells(rw, 4).Value = "ChkVal =" & Cells(rw - 1, 3).Value
        rw = rw + 1
    Wend
End Sub