Macro to save multiple text files

Hi Friends,
I am looking for a macro to create some text files and then zip them into folder. Will be greatful for your help. Here are the steps to be followed:


1.Set formula to Automatic
2.Create a folder with the name as per cell “C2” in “DATA” sheet in the path specified in cell “R2” in the “DATA Sheet”
3.Copy “Cell F1” from data sheet into Cell “D2” in “GAR_IHD” Sheet
4.Save the GAR_IHD Sheet as text file in the folder created in Step 2 above. File name should be as per Cell “S4” of the “DATA Sheet”
5.Repeat step 3 and 4 again for 10 more times taking next cells like “G1” and “S5” from the “DATA” sheet
6.Now Copy data from Cell “F2” downwards in column “G” of the “GAR_IDE” Sheet
7.Save the GAR_IDE Sheet into the folder created in Step 2 as text file. File name should be as per cell “R4” of the “DATA” Sheet
8.Repeat step 6 and 7 by taking next columns like “G2” onwards
9.Zip the whole folder