sutun = Application.InputBox("Sütun İsmini Yaz!", Application.UserName, "Sütun İsmini Buraya Yazınız.")
Range(sutun & 1).Select
For Each Alan In Range(sutun & 2 & ":" & sutun & Range("A65536").End(xlUp).Row) '
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next Alan. İstediğim sütuna...