Guru do Excel e Power BI

Olá, Criei uma macro para inputar uma determinada informação e preciso que ela se repita até a célula x2 seja vazia, segue abaixo a mesma, é possível ?

Sub imput()

Sheets("Plan1").Select
Range("E4:E5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 5).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

Sheets("Plan1").Select
Range("E6:E193").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 8).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan2").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Offset(1, 0).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Plan3").Select
Range("a1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("a1").Select
Selection.End(xlDown).Offset(0, 5).Select
ActiveCell.FormulaR1C1 = "v"
Selection.End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range(Selection, Selection.End(xlDown)).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Plan1").Select
Columns("E:E").Select
Selection.Delete Shift:=xlToLeft

Sheets("Plan1").Select


End Sub

celula E4 desculpe o equivoco.

Bom dia!!

Sua macro está muito suja.


Mas tente algo assim.. Não testado!!!!!
Att

Cara sou meio júnior ainda em VBA, por isso acabo gravando muita das coisas, e a macro acaba ficando muita suja, estou fazendo as aulas no youtube do canal do guru, espero melhorar, rsrs, e sobre sua sugestão funcionou perfeitamente, muito obrigado