Insert limited cells when you insert a row

Hi hope you can help, i have a sheet with data validation in column A. when i want to add a row to add extra data if i insert row it does the whole row, but is there a way to limit the insert to only say columns A to AG cells as i have information in columns AH that i don't want to have cells inserted. this will eventually be put into a macro to repeat this in other tabs in the same workbook.
Thanks

Can you attach a copy?

Excel.JPG
As you can see the Task description and the Frequency columns have the data validation so if i select say row 10 to add a space to add more data in the 2 data validation columns in the first section on the left i don't want the row to add cells past the column with the day 31, and that would also apply to the second set of data on the right hand side of the page

Without seeing your workbook you could maybe use something like this in your Sheet Module. Right Click the sheet name you want this to work on and click 'View Code' then paste the code there.
Then double click in a cell to insert a row below. You can change the values in the code as needed for your sheet.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim i, x As Integer, sh As Worksheet, wb As Workbook
Set wb = ThisWorkbook
Set sh = wb.Worksheets(ActiveSheet.Name)
i = Target.Column
x = Target.Row

'Change These Values As Needed For Your Sheet Ranges

'Columns 1 - 33 (A - AG)
If i >= 1 And i <= 33 Then
sh.Range(Cells(x, 1), Cells(x, 33)).Copy
sh.Range(Cells(x, 1), Cells(x, 33)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If
'Columns 34 - 66 (AH - BN)
If i >= 34 And i <= 66 Then
sh.Range(Cells(x, 34), Cells(x, 66)).Copy
sh.Range(Cells(x, 34), Cells(x, 66)).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 'Range 2
End If

Application.Goto Target
Application.CutCopyMode = False
End Sub

https://www.excelforum.com/attachmen...1&d=1546719431

I think i have attached the spreadsheet, if you can have a look.
Thanks

Did you try the code I posted? If so, does that work for you? If not, can you give me a detailed explanation of what you would like to be able to do with this workbook?

If I interpret your Post #1 right, this should do.

Range("A10:AG10").Insert Shift:=xlDown

If there is more involved then you'll have to use unit285's code that copies down formats

Thanks for feedback unit285 and jolivanes, i ended up using unit285's coding and then created a macro to transfer the updated sheet to the other 11 tabs and its works fine, much appreciated the quick responses

Happy it worked for you.