Command button to copy and insert new row

[OrrukHai]

Hello, I've used this forum for a while and it's been super helpful (Thank you!), but this is my first time posting as I can't seem to find that the solution I'm looking for has been discussed before.

I have a sheet with a number of rows that contain formatting and formulas. The cells in the row contains some product types and values that it takes from another sheet using IF.

I'm wanting to add a command button that when clicked, will insert a new row below row 51, based on the formatting and formulas in row 51. The solutions I've found on this forum so far add a new blank row only, without the formatting or formulas copied across.

Is a solution available?

 

[Legacy 143009]

This must do the trick:

Sub test()
  Rows(UsedRange.Row).Copy
  Rows(UsedRange.Row).Insert
End Sub

 

[OrrukHai]

This must do the trick:

Sub test()
  Rows(UsedRange.Row).Copy
  Rows(UsedRange.Row).Insert
End Sub

thanks for the quick response. Would I just need to adapt this so it works for row 51?

 

[Legacy 143009]

Do you want just only for 51? Then:

Sub test()
  Rows(51).Copy
  Rows(51).Offset(1).EntireRow.Insert
End Sub

 

[OrrukHai]

Do you want just only for 51? Then:

Sub test()
  Rows(51).Copy
  Rows(51).Offset(1).EntireRow.Insert
End Sub

brilliant, thank you so much for your help.

 

[Legacy 143009]

Glad it did help Thanks for the feedback