Add row and copy formula from hidden column

[alexoigres]

Hello everybody..
I have a worksheet that is share with many people and the problem i have is that everytime someone is adding a row to add information they forget to copy some hidden formulas on 5 columns. Is there any way that i can have a small macro that everytime someone add a row in the work sheet the formulas in the 5 hidden columns get copied?
Thanks
Alex

 

[alexoigres]

I find the anser already on this site... i took me all day but i was searching incorrect words....

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False

Dim lngCols(1 To 3) As Long

lngCols(1) = 3
lngCols(2) = 6
lngCols(3) = 9

On Error GoTo ErrorHandler:
If Target.Columns.Count <> Columns.Count Then Exit Sub

For i = 1 To UBound(lngCols)
Cells(Target.Offset(-1, 0).Row, lngCols(i)).Copy
Cells(Target.Row, lngCols(i)).Select
ActiveCell.PasteSpecial xlPasteFormulas
Next i

ErrorHandler:
Application.ScreenUpdating = True
End Sub