remove gaps and paste it in new sheet

[santoshloka]

i have some values in 4 colums, i want to remove gaps between them and place those values in new sheet2

here is the attachment

https://drive.google.com/open?id=0B8-usD7SI_4aT19kMTBNX2NBU2s

 

[Fluff]

Howabout

Sub CopyDataNoBlanks()

    Sheets("Sheet1").Range("A1:D1").EntireColumn.SpecialCells(xlConstants).Copy _
        Sheets("Sheet2").Range("A1")

End Sub

 

[santoshloka]

Thank you for Quick Replay..iam just clearing my doughts