Inserting Rows in Excel Worksheet using VBA

I need small information .In excel every 27 rows after insert 5 rows.how to do this .Please suggest to me

I want to create a column before some specific text inside the cell .can you please help me in this ?

Hi, I would like to create a number of rows based on a cell input.
For example, based on input = 3 in a certain cell, I want to create 3-minus-1 rows.
How do I do this? Many thanks!

Hi,
Wondering if this can be modified to suit something I’ve been struggling with:

The code listed below is tasked to :
> Create a new sheet based on each page break (which have been inserted through the subtotals function)
> Save the sheet to a designated location and,
> Auto-name each sheet according to the value in cell A2.
Code below:

“Sub Sample()
Dim rowCurrent As Long, rowPrevious As Long, i As Long
Dim oWB As Workbook, newWbk As Workbook
Dim oWS As Worksheet

Set oWB = ActiveWorkbook

Set oWS = oWB.Sheets(“Specials”)

rowPrevious = oWS.UsedRange.Row + oWS.UsedRange.Rows.Count – 1

For i = oWS.HPageBreaks.Count To 0 Step -1
If i = 0 Then
oWS.Rows(“1:” & rowPrevious).Copy
Else
rowCurrent = oWS.HPageBreaks(i).Location.Row
oWS.Rows(rowCurrent & “:” & rowPrevious).Copy
End If

Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs “file_path ” & ActiveSheet.Range(“A2″).Value & -i
ActiveWorkbook.Close

rowPrevious = rowCurrent – 1
Next
End Sub”

What I want to do, is take the column headings from the main file and insert them as row 1 on each sheet.

Would greatlly appreciate the assist.

David

I am trying to add an add row button to several sections in Excel. I can execute the commands and get the rows to add but when it runs if you add a row to section 1 at the end of the existing rows it works fine, but in section two the new row is added within the section and not at the end of the section. How do I write the script to always add a row at the end of the section regardless of the new rows added above the section?

must have to set object variable

Hi I wants to add row if data/value found, else not.

so, there are many line items but not very specific sequence.

please provide macro.

Thank you

Hi,

I want a macro for rows that are having phone numbers more than 1 e.g.,

from
xxxxxx 234555, 455555, 5677777, 567778
xxxxxxxx 455656
fdgggfdf 7878787, 455550
xxxxxxxx 455656

to
xxxxxx 234555
xxxxxx 455555

e.g., 234555, 455555, 5677777, 567778 these numbers should come one after the other by using macro code.

These can occur randomly on my data sheet, it can be 2, 3, 4, or 5 numbers. But they will have the same name in separate colm.

I want them to be inserted as new cells, so that they do not overlap the numbers below

Hi , What I mean is how to tell the macro to skip first n rows so header wont be affected and then run the macro like above!

Hi,

Good day!

I would like to ask help on how to create a macro on my data sheet.

I have a list of company names in column A and then I need to insert 50 rows after each name because I going to insert 51 state jurisdiction in column E to be able to search each name in each state.

Column A (ENTITY NAMES) B C D Column E (State search)

Microsemi Storage Solutions, Inc. AK
Microsemi Storage Solutions, Inc. AL
…..
Microsemi Storage Solutions, Inc. WY
PMC-Sierra US, Inc. AK
PMC-Sierra US, Inc. AL
PMC-Sierra US, Inc. AR
….
Wintegra, Inc.

Thank you so much..

Hi PNRao,

I want to add Row on specified sheet. number of row to inserted is mention in Cell ( for example: E10) of instruction sheet. when i run macro than this macro should enter number of row mention in cell E10 in sheet name XYZ.
I have two worksheet. i will make separate macro for each sheet to do same thing. as both sheet have different figure and 1st i need to insert on one sheet after getting other data than i need to add raw sheet to other sheet.

I have a spreadsheet where I add a row every day and add new information into that row manually. There are also some formulas that autofill when the new line is inserted. I have a total at the very bottom of the spreadsheet. How do you change this VBA code to insert a line just above the total as opposed to the number it is at now “301”? The way the code is now, it always inserts a line at 301, but I want it to insert right above the total line regardless of which line it is on. I have also created other VBA formulas in the totals row which sum, count, and then a combined formula to get the average using the sum and count (all based on colors of cells). Thanks in advance for your help!

Sub Inserting_Line()
‘
‘ Inserting_Line Macro
‘

‘
Rows(“301:301”).Select
ActiveSheet.Unprotect
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range(“A299:Y299”).Select
Selection.AutoFill Destination:=Range(“A299:Y300”), Type:=xlFillDefault
Range(“A299:Y300”).Select
End Sub

Hi,
I am new to VBA coding and writing macros. i am trying to insert a new row based on my cursor position. This is the code which i am tried using but it gives error like Run-time error “1004”: method ‘Range’ of object ‘_Global’ failed. please suggest how to corect it.

Sub insertrow()

‘Inserting a new row at my cursor postion

Range(“xlapp.ActiveCell.Row”).EntireRow.Insert

End Sub

Hi,
I have a column that has numbers like 30, 60 ,90,120 and so on.I want a macro for inserting a row when there is difference of 120 or above. can you please help.

Hi Reva,
What’s the new code? I am looking for the solution too.
Thanks,
JUnn

File ABC has only one worksheet, whereas file XYZ has 56 worksheets, that is to say that range B1:F1 go to worksheet 1, range B2:F2 go to worksheet 2 and so on. Thanks

I am wondering if it is possible to use the information from row 1 A1 and row 2 A1 to create a different number of rows between the 2.
what i am thinking is taking row 1 A1 information minus row 2 A1 information dived by 60 and that is the number of lines that need to be created between row A and B. And them repeat this all the way thru the document. between 2-3 thousand lines. to create a document with around 120 thousand lines.

I need to Insert with the data in it ,at the end . I need to insert in the middle