View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
K[_2_] K[_2_] is offline
external usenet poster
 
Posts: 557
Default MERGE CELL BY MACRO

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/micro...95cb9ab9e89f5b