Macro to loop tasks, double-macros

Hi

I have a wierd problem, may be weird for me but simple for all excel/vba gurus.

I have 10-15 tabs in a worksheet, I need a loop/macro which leaves the first 3 sheets in the right most side, and from 4th tab onwards, it runs a loop which puts a vlookup formulae in coloum A which have some value in corresponding coloum B. I thought the loop would worked, so I prepared the following code. But this loop is only taking me to previous sheets, but not running the formulae loop inside each worksheet.

Any help in this would be appreciable.

Do
If ActiveSheet.Previous.Select = True Then
Range("B2").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(-1, 0).Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[2],Responsible!C:C[4],4)"
ActiveCell.Offset(1, 1).Select
End If
Loop Until IsEmpty(ActiveCell) = True
Cells.EntireColumn.AutoFit
Range("A1").Select
ActiveSheet.Next.Select
End If
Loop Until ActiveSheet.Previous.Select = False

Hmm...what I want is a code, which run through all the tabs in the workbook, leaving the first 3 tabs in the right most side, and put in a formula in coloum A in all the cells if there is a value in coloum B for the corresponding cells.

Ok I am attaching the actual workbook with few tabs.

In the attached workbook, I want the code to work on all tabs except the last 3 tabs, i.e (Pivot, Raw Data & Responsible)

In all the remaining tabs, i.e RBS one card, T & E, Utilities and comm in this case, i want a macro, that select all the reamining worksheets leaving the last 3 tabs as mentioned in the para above, and run a loop in coloum A. And input formulaes in all the cells in coloum A, which have values in coloum B in the corresponding cells. The formula is simple vlook up formulae, which look-up the value in coloum C and give the results from Colouom D of Responsible Tab.

May be I am clear this time. PLease help me out.