Need help with my macro!

[blakererucha]

Hi! I have data that I am trying to paste into the bottom of a table, but I cannot figure our how to do it. It keeps pasting into the same cell, not the bottom of the table. Here is my code.

Sub DAILY_DATA_LOG_INSERT()
'
' DAILY_DATA_LOG_INSERT Macro
' TO INSERT DATA INTO DAILY DATA LOG
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Range("N3:AH3").Select
Selection.Copy
Sheets("DAILY DATA LOG").Select
Range("B62").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub


Thank you for the help!!

 

[offthelip]

try this small change:

Sub DAILY_DATA_LOG_INSERT()
'
' DAILY_DATA_LOG_INSERT Macro
' TO INSERT DATA INTO DAILY DATA LOG
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Range("N3:AH3").Select
Selection.Copy
Sheets("DAILY DATA LOG").Select
Lastrow = 1 + Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & Lastrow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[blakererucha]

try this small change:

Sub DAILY_DATA_LOG_INSERT()
'
' DAILY_DATA_LOG_INSERT Macro
' TO INSERT DATA INTO DAILY DATA LOG
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Range("N3:AH3").Select
Selection.Copy
Sheets("DAILY DATA LOG").Select
Lastrow = 1 + Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & Lastrow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Thanks, but im still getting an error with this.

 

[offthelip]

Do you option explicit?? if you do then you need to add a declaraton for Lastrow, e.g.

dim Lastrow

I never use option explicit it just causes more problems than it saves in my opinion

 

[blakererucha]

Do you option explicit?? if you do then you need to add a declaraton for Lastrow, e.g.

dim Lastrow

I never use option explicit it just causes more problems than it saves in my opinion

I don't think so? I'm novice to VBA.

 

[offthelip]

I can't think of anything else because the code compiles and runs Ok on my computer so try this:

Sub DAILY_DATA_LOG_INSERT()
Dim lastrow As Variant

'
' DAILY_DATA_LOG_INSERT Macro
' TO INSERT DATA INTO DAILY DATA LOG
'
' Keyboard Shortcut: Ctrl+Shift+I
'
Range("N3:AH3").Select
Selection.Copy
Sheets("DAILY DATA LOG").Select
lastrow = 1 + Cells(Rows.Count, "B").End(xlUp).Row
Range("B" & lastrow).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

I'm novice to VBA.

Unfortunatly novices are often really encouraged to use option explicit