Hi Armagan,

Try something like:

'=============
Public Sub Tester()
Dim rng As Range

On Error Resume Next
Set rng = Range("AE:AE").SpecialCells(xlCellTypeConstants)
On Error Resume Next

If Not rng Is Nothing Then
rng.Copy Destination:=Range("AF1")
End If

End Sub
'<<=============


---
Regards,
Norman



"armagan" wrote in
message ...

Hi,

I'm trying to put together some VBA where it will search a specified
column (column AE) for values. blank cells will be ignored, cells with
a value will be cut and pasted to a new location (column AF).

can someone give me some suggestion with the code?

cheers,


--
armagan
------------------------------------------------------------------------
armagan's Profile:
http://www.excelforum.com/member.php...o&userid=34237
View this thread: http://www.excelforum.com/showthread...hreadid=545448