Another coping and pasting macro
 

My feable attempt at writing this. Very apperent to me that i need more help.
I have a worksheet (GwrStmts.) with a named range GwrStmt that I would like
to copy and paste on Worksheet ("GrowerDatabase") a row after the last entry.
What am i missing? Thank you once again. Jennifer

Sub PostGwrStmt()
With Worksheets("GwrStmts.")
Range("GwrStmt").Copy
End With
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GrowerDatabase")

' find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Range("GwrStmt").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("GwrStmts.").Select
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer

Another coping and pasting macro
 

Hi(again!),

Sub PostGwrStmt()

Dim iRow As Long
Dim ws As Worksheet

Set ws = Worksheets("GrowerDatabase")

' find first empty row in database

iRow = ws.Cells(Rows.Count, 1) .End(xlUp).Offset(1, 0).Row

Worksheets("GwrStmts").Range("GwrStmt").Copy ws.Cells(iRow, 1)

End Sub


HTH

"Jennifer" wrote:

My feable attempt at writing this. Very apperent to me that i need more help.
I have a worksheet (GwrStmts.) with a named range GwrStmt that I would like
to copy and paste on Worksheet ("GrowerDatabase") a row after the last entry.
What am i missing? Thank you once again. Jennifer

Sub PostGwrStmt()
With Worksheets("GwrStmts.")
Range("GwrStmt").Copy
End With
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GrowerDatabase")

' find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Range("GwrStmt").PasteSpecial Paste:=xlPasteFormulasAndNumberFormats,
Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("GwrStmts.").Select
End Sub
--
Though daily learning, I LOVE EXCEL!
Jennifer