select and copy from one worksheet to another

[mort1703]

Hi

I have a worksheet called "BILLS", this worksheet contains multiple rows of data; in essence a list of bills; I need to select all of the data and copy to another worksheet.

Can anyone help

 

[texasalynn]

start in cell A1 and do a ctrl+shift+end and copy
go to other sheet and paste where you want it

 

[mort1703]

sorry I meant using vba, I have a macro in place and want to add this routine so its automated, rather than a manual process

 

[texasalynn]

use the record macro to walk thru the steps

 

[mort1703]

        Sheets("BILLS").Select
        Range("A1:F24").Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("APRIL BILLS").Select
        ActiveSheet.Paste

How do I adjust this code to adjust for unlimited rows, ie the number for rows required is random, at the moment I have 24 rows of data however this could change I need to make the above code a bit more robust

 

[texasalynn]

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

HTH