Add new cells in "range" Row

1legin · May 2nd 2018

Trying to get this code to add a new row in excel via a button, not the full row, just the first 10 cells.
Can anyone amend the code for me please

Thanks

Nigel

Code

Sub Button1_Click()




Rows("6:6").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A6:A8"), Type:=xlFillDefault




Range("A8:J8").Select
Selection.Copy
Range("A6:J7").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False


Range("A7:A8").Select
Selection.AutoFill Destination:=Range("A6:A8"), Type:=xlFillDefault




Range("A8:J9").Select
Selection.Copy
Range("A6:J7").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Worksheets("Sheet1").Columns("A:J").AutoFit


Range("A6").Select
End Sub

Display More

Sorry for not adding Tag's

**alansidman** · May 2nd 2018

Your post does not comply with our Forum RULES. Use code tags around code.

Posting code between

Code

tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

Add new cells in "range" Row

Participate now!

Share