How to delete cells ?

[susee]

undefinedundefined

Hi All,
I would like to do the following column deletions programatically using VBA.

In a Test.Xls file i have 5 columns and 8 rows. In the 5th column i don't have any data in last 2 rows i,e 7th and 8th rows. I need to delete the first 6 rows of Column A by shift cells left, so that the whole data in the Test.Xls will be accomodated into 4 columns and 8 rows.

If Then, open an xxx.xls and then give me a solution.

Thanks in advance
suseee

[mudraker]

susee


Try this one line macro

Sub DeleteCells()
Workbook("Test.xls").Sheets(1).Range("A1:A6").Delete Shift:=xlToLeft
End Sub