One line of code not working

[Adrac]

Hello all,

I have a vrey simple code but i must be missing something very simple as it is erroring.
Can you have a look and let me know whats wrong with it or maybe a better suggestion on what the code should be.

Worksheets("Daily Total").Range("D" & Rows.Count).End(xlUp).Offset(1).Select

Full Scrip

Sub Temp()
Application.ScreenUpdating = False
    Sheets("Front Sheet").Range("D83:M83").Copy
    Worksheets("Daily Total").Range("D" & Rows.Count).End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = True
End Sub

Thank you

Adrac

 

[FormR]

You can't select cells on a worksheet/workbook that isn't active - did you try without the select (for example)

Sub Temp()
Application.ScreenUpdating = False
    Sheets("Front Sheet").Range("D83:M83").Copy
    Worksheets("Daily Total").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = True
End Sub

 

[My Aswer Is This]

...

 

[Adrac]

You can't select cells on a worksheet/workbook that isn't active - did you try without the select (for example)

Sub Temp()
Application.ScreenUpdating = False
    Sheets("Front Sheet").Range("D83:M83").Copy
    Worksheets("Daily Total").Range("D" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
    Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.ScreenUpdating = True
End Sub

Great thank you so much, it works now