fomula comes to next row on click

[abdurahman38]

If anyone help me to write VBA scrip for following
I've dropdown list in A3, and other calculation formulas in
C3,D3,E3,F3 all are ready calculating, as I click on A4 I want above
same formula automaticaly copy work on C4,D4,E4,F4. continues like
this in every rows as I click to fill up.
Thank you very much in advance

 

[Don Guillett]

Right click sheet tab>view code>copy/paste this. A DOUBLE click will do as
desired.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If Target.Column <> 1 Then Exit Sub
Tr = Target.Row
Range(Cells(Tr - 1, 3), Cells(Tr - 1, 6)).Copy Cells(Tr, 3)
End Sub