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

 

[sandy666]

I suggest to use

 

[daniboymu]

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

 

[daniboymu]

I suggest to use

View attachment 25285

THANK YOU! ITS MY FIRST DAY HERE, SO PLEASE DONT MIND THE MISTAKES

 

[sandy666]

THANK YOU! ITS MY FIRST DAY HERE, SO PLEASE DONT MIND THE MISTAKES

no problem and you don't have to scream
have a nice day

 

[ER_Neha]

Hello dani. Please try this

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
Range("A" & lastRow + 1).PasteSpecial paste:=xlPasteValues, operation:=xlPasteSpecialOperationNone, _
skipblanks:=False, Transpose:=False

End Sub

 

[daniboymu]

Hello dani. Please try this

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
Range("A" & lastRow + 1).PasteSpecial paste:=xlPasteValues, operation:=xlPasteSpecialOperationNone, _
skipblanks:=False, Transpose:=False

End Sub

Hi! ER_Neha if you could please check this thread, has more details of my problem

I don't know what to do to correct this vba code

my problem here is i dont know what i have to change on the vba code so I can get the information from ROW 5 and store at database, i uploaded two images showing what happens when i run the macro, I will be very grateful if someone could help me. Sub paste() ' paste2 Macro Dim lastRow As...

www.mrexcel.com

 

[Fluff]

How about

Sub daniboy()
   Rows(7).Insert
   Range("A8:DG8").Value = Range("A5:DG5").Value
End Sub

 

[ER_Neha]

Hello dani Please try this

Sub paste2()
' paste2 Macro

Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5:DG5").Copy
Range("A" & 8).PasteSpecial paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, _
SkipBlanks:=False, Transpose:=False

End Sub

 

[daniboymu]

Hello dani Please try this

Sub paste2()
' paste2 Macro

Rows("7:7").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5:DG5").Copy
Range("A" & 8).PasteSpecial paste:=xlPasteValues, Operation:=xlPasteSpecialOperationNone, _
SkipBlanks:=False, Transpose:=False

End Sub

THANK YOU SO MUCH NEHA that's exactly what i need!! tyvm!!