liste düzenleme

[igultekin2000]

Sub ayir1()
On error resume next
Dim kelime As String
Dim önceki As String
Dim sonraki As String
For i = 2 To Cells(Rows.Count, "A").End(3).Row
kelime = Split(Cells(i, 1), " ")(2)
onceki = Split(Cells(i, 1), kelime)(0)
Cells(i, 2).Value = onceki
Next
End Sub

iyi günler;
işlemde kullanmak istediğim makro ayın sayfada oluyor, işlemi başka çalışma sayfasına aktarmak için hangi kodun ilave olması gerekir. Teşekkürler.