K
K
Hi, I have this macro (please see below) which insert lines . What
should
I add in this macro that it should merge cells from coloumn "I" to
coloumn
"N" in those inserted rows.
MACRO:-
Sub InsertIt()
Dim LastRow As Long
Dim StartRow As Long
StartRow = ActiveCell.Row
Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(StartRow, 1), Cells(LastRow, 1))
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
End With
Application.ScreenUpdating = True
End Sub
I posted smilar question before please see the link below for more
understanding
about question. Thanks
http://groups.google.com/group/micr...49e59db3843/e495cb9ab9e89f5b#e495cb9ab9e89f5b
should
I add in this macro that it should merge cells from coloumn "I" to
coloumn
"N" in those inserted rows.
MACRO:-
Sub InsertIt()
Dim LastRow As Long
Dim StartRow As Long
StartRow = ActiveCell.Row
Cells(StartRow + 1, 1).Resize(6, 1).EntireRow.Insert
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(StartRow, 1), Cells(LastRow, 1))
.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Trend:=False
End With
Application.ScreenUpdating = True
End Sub
I posted smilar question before please see the link below for more
understanding
about question. Thanks
http://groups.google.com/group/micr...49e59db3843/e495cb9ab9e89f5b#e495cb9ab9e89f5b