hard copy help

[hail11]

i am currently ussing this code

Dim a As Long
a = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
If a = 1 And Worksheets("sheet1").Range("A1") = "" Then x = 0
Worksheets("sheet1").Range("A" & a + 1) = Range("b6")

however i need to copy down the row from a1 till a44 and past it in on b1 till all the way to b44 ??

 

[stanleydgromjr]

hail11,

Try this:

    Dim a As Long
    a = Worksheets("sheet1").Range("A" & Rows.Count).End(xlUp).Row
    If a = 1 And Worksheets("sheet1").Range("A1") = "" Then x = 0
    Worksheets("sheet1").Range("A" & a + 1) = Range("b6")

    'however i need to copy down the row from a1 till a44 and past it in on b1 till all the way to b44 ??

    Worksheets("sheet1").Range("A1:A44").Copy Worksheets("sheet1").Range("B1")

Have a great day,
Stan

 

[hail11]

i tryed this
Worksheets("sheet1").Range("A1:A44").Copy Worksheets("sheet1").Range("B1")

however i have code in these i just need that values that the codes have taken not the formulas. I used the code above to do single cells however i need to do more then that

 

[hail11]

what about somehting like this?

Sheets("sheet1").Copy
Sheets("Sheet2").Paste

but i need it to copy the whole page and paste with all the actuals