What is wrong with this Formula? doesnt copy the range determined

[daniboymu]

the formula needs to copy the range (A5:DG5) but doesnt do that, just show me random numbers

Sub paste()
' paste2 Macro
Dim lastRow As Long
' this finds the number of the last row
Rows(7) = Cells(Rows.Count, 5).End(xlUp).Row
Range("A5:DG5").Copy
Cells(lastRow + 1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

 

[ER_Neha]

Glad I could Help. Also Dani the code which Fluff provided is much easy and short, I think you should go for that.

 

[daniboymu]

Glad I could Help. Also Dani the code which Fluff provided is much easy and short, I think you should go for that.

Neha, i am sorry to bother you but could you please setup this vba code here to do the same thing as the one you did, because with this one here the other spreadsheet is also updated.

Sub paste()
' paste2 Macro
    Dim lastRow As Long
' this finds the number of the last row
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A5:DG5").Copy
    Cells(lastRow + 1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[ER_Neha]

Neha, i am sorry to bother you but could you please setup this vba code here to do the same thing as the one you did, because with this one here the other spreadsheet is also updated.

Sub paste()
' paste2 Macro
    Dim lastRow As Long
' this finds the number of the last row
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Range("A5:DG5").Copy
    Cells(lastRow + 1, 1).PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

With this code you are trying to paste your data in the last row of your file, which i suppose is 1200 , please kindly share your query again, I didn't understand properly what you are looking for.