automatically delete empty rows when transfer data from userform to sheet1

[abdelfattah]

hi, everyone
i need code automatically delete empty rows when transfer data from userform to sheet1
i have userform when i fill data it does transfer data to sheet1 i would delete rows from after lastrow contains data without effect the values of others cells the basic of range beginning from a19:e35 in my case when i fill data in range from a19:e22 after this should delete from a23 :e30 don't delete range a33:e35 because linked of value other lastrow contains data in this case rows a22:e22

 

[Kamolga]

This checks what is the last row in column A above row 33, so lr =22 and then delete the range (A23:E32)

[COLOR=#222222][FONT=Verdana]Dim lr As Long: lr = Cells(33, "A").End(xlUp).Row  [/FONT][/COLOR][COLOR=#008000][FONT=Verdana]'Last Row[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]Range("A" & lr + 1, "E32").Delete[/FONT][/COLOR]

 

[abdelfattah]

This checks what is the last row in column A above row 33, so lr =22 and then delete the range (A23:E32)

[COLOR=#222222][FONT=Verdana]Dim lr As Long: lr = Cells(33, "A").End(xlUp).Row  [/FONT][/COLOR][COLOR=#008000][FONT=Verdana]'Last Row[/FONT][/COLOR]
[COLOR=#222222][FONT=Verdana]Range("A" & lr + 1, "E32").Delete[/FONT][/COLOR]

i fill in data in userform
the first picture
the second picture what i want
https://ibb.co/x36PTcb

https://ibb.co/Wn2LL7w

 

[Kamolga]

[FONT=Verdana][I]Dim lr As Long: lr = Cells(33, [COLOR=#ff0000]"C"[/COLOR]).End(xlUp).Row  [/I][/FONT][COLOR=#008000][COLOR=#008000][FONT=monospace][I][FONT=Verdana]'Last Row[/FONT][/I][/FONT][/COLOR][/COLOR][LEFT][COLOR=#333333][FONT=monospace][/FONT][/COLOR][/LEFT]
[COLOR=#222222][LEFT][COLOR=#222222][FONT=monospace][I][FONT=Verdana]Range("A" & lr + 1, "E32").Delete[/FONT][/I][/FONT][/COLOR][/LEFT]
[/COLOR]