Copy row and paste formulas

[Shadkng]

I would like to modify the code below to paste formulas only. Also in row 27 I have data only thought column N, so should it be specific to the range of data? Thanks

Sub CLUTCH_BUILD_COPYROW()
Sheets("CLUTCH BUILD").Activate
Range("27:27").Copy Range("28:" & Range("A1").Value)
Sheets("FINALORDER").Activate
Range("B15").Select
End Sub

 

[James006]

Hi,

You could test following macro

Sub CLUTCH_BUILD_COPYROW()
  Sheets("CLUTCH BUILD").Range("A27:N27").Copy
  Sheets("CLUTCH BUILD").Range("A28:N" & 28 + Range("A1").Value -1).PasteSpecial xlPasteFormulas
  Application.CutCopyMode = False
  Application.Goto Sheets("FINALORDER").Range("B15")
End Sub

Hope this will help