Perhaps this:

Sub Test()
Dim arr As Variant
arr = Split(ActiveCell.Value, Chr(10))
ActiveCell.Resize(1, UBound(arr) + 1) = arr
End Sub

Regards,
Greg

"lalitha" wrote:

"APPASAMY KRISHNA HOSPITAL
DR RAJAKANNAN
OPP VIJAYA NAGAR BUS TERMINAL, 100 FT ROAD
VELACHERY, CHENNAI - 42"

above is the address. i want to paste this in a single row and to filter it
in area wise. please give some idea.