Inserting Cells of row in Selected Range in a Particular way

[NimishK]

Hello
With the code below am able to Insert Cells and move downwards but not able to maintain the values of Column A which is in First Row of Selected Range which shall remain always.
So what happens when i insert Value of B in 1st row of selected range Value of Column A moves downwards too.
Illustrations of 3 examples for reference

How to maintian all the values of Column A in its 1st row of the Selected Range inspite of inserting the values in between the range as well 1st row of the selected Range

Indeed your help will be Great
NimishK

Private Sub UserForm_Initialize()
CurRec = 1
End sub

Private Sub Insert_Click()

     Dim Ws As Worksheet
     Set Ws = Worksheets("Sheet1")
     Ws.Activate
   
     Dim curRow As Long
     Dim FirstMinRow As Long
     Dim lastMaxRow As Long
     Dim nosRows As Long
     Dim RowsDiff As Long
   
    FirstMinRow = Ws.Range(txtRangeAddress.Text).Rows(curRec).Row             '1st row of Selected range 
    lastMaxRow = FirstMinRow + Ws.Range(txtRangeAddress.Text).Rows.Count - 1  'last row of the Selected Range
    nosRows = Ws.Range(txtRangeAddress.Text).Rows.Count
    curRow = Val(FirstMinRow)

    Ws.Range(Cells(curRow, 1), Cells(curRow, 3)).Insert

End Sub

Illustrations of examples
Original

	Original
	A	B	C
1	hello	1	1x	Sel.Range for Hello is A1:C3
2		2	2x
3		3	3x
4	World	aa	ax	Sel.Range for World is A4:C6
5		bb	bx
6		cc	cx
	Inserted Eg 1		After Insert_button Pressed
1	hello	1	1x
2		1A	1xa	Want the result like this
3		2	2x
4		3	3x
5	World	aa	ax
6		bb	bx
7		cc	cx
	Inserted Eg 2		After Insert_button Pressed
1	hello	H1	hx	Want the result like this
2		1	1x
3		2	2x
4		3	3x
5	World	aa	ax
6		bb	bx
7		cc	cx
	Inserted Eg 3		After Insert_button Pressed
1	hello	1	1x
2		2	2x
3		3	3x
4	World	aa	ax
5		bb	bx
6		W2	wx	Want the result like this
7		cc	cx

<tbody>
</tbody>

Thanks