Sheets("BILLS").Select
Range("A1:F24").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("APRIL BILLS").Select
ActiveSheet.Paste
Sub copy_bills()
Dim LR As Long
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Sheets("BILLS").Select
Range("A1:F" & LR).Copy Destination:=Sheets("APRIL BILLS").Range("A1")
Application.CutCopyMode = False
End Sub