Does this help?
Sub carticaaabbcczz()
Sheets("P&L Estimates April '14").Range("B3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("B3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("C3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("C3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("D3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("D3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("E3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("E3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("F3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("F3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("G3").End(xlDown)(1).Copy
Sheets("P&L Estimates April '14").Range("G3").End(xlDown)(2).PasteSpecial xlPasteFormulas
Sheets("P&L Estimates April '14").Range("F25").Formula = "=F" & Range("F3").End(xlDown)(1).Row
Sheets("P&L Estimates April '14").Range("G25").Formula = "=G" & Range("G3").End(xlDown)(1).Row
End Sub
Bookmarks