I'm not sure what you problem was but try this...
Sub Dailytoweek()
Dim LastRow As Long
Sheets("Weekly Report").Visible = True
With Sheets("Process")
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
If LastRow > 1 Then
With .Rows("2:" & LastRow)
.Copy
Sheets("Weekly Report").Range("A" & Rows.Count).End(xlUp).Offset(1).PasteSpecial _
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
.ClearContents
End With
MsgBox "Completions Updated", , "Copy Complete"
Else
MsgBox "'Process' worksheet is empty. ", vbInformation, "Nothing to Copy"
End If
End With
End Sub
Bookmarks