macro to copy formulas from last row of data to same columns in first empty row

[boxxcar]

I am a Novice. I am unable to use a variables in cell addresses successfully. Here is my fake code. Thanks for any help you provide.

Sub Macro1()


Dim Rx As Long 'for Row
Dim Cx As Long 'for Col
Dim iRow As Long 'for last row with data
Dim x As Integer

Set ws = Worksheets("Ebay Inventory")

'for columns B, D, I, K, L in last row with data
'copy down formulas in first empty row

'find first empty row in database and assign it to var iRow
iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).iRow + 1

For x = 1 To 5

If x = 1 Then Cx = 2 'Column #
If x = 2 Then Cx = 4
If x = 3 Then Cx = 9
If x = 4 Then Cx = 11
If x = 5 Then Cx = 12

Cells(iRow + 1, Cx).Copy Cells(iRow + 1, Cx)
Next x

End

 

[MARK858]

If you are copying the last cell then you don't want the +1 at the end of

iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
          SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1

(or later in the code), try...

Sub Macro1()


    Dim Rx As Long                               'for Row
    Dim Cx As Long                               'for Col
    Dim iRow As Long                             'for last row with data
    Dim x As Integer
    Dim ws As Worksheet
    Set ws = Worksheets("Ebay Inventory")

    'for columns B, D, I, K, L in last row with data
    'copy down formulas in first empty row

    'find first empty row in database and assign it to var iRow
    iRow = ws.Cells.Find(What:="*", SearchOrder:=xlRows, _
                         SearchDirection:=xlPrevious, LookIn:=xlValues).Row

    For x = 1 To 5

        If x = 1 Then Cx = 2                     'Column #
        If x = 2 Then Cx = 4
        If x = 3 Then Cx = 9
        If x = 4 Then Cx = 11
        If x = 5 Then Cx = 12

        ws.Cells(iRow, Cx).Copy ws.Cells(iRow + 1, Cx)
      ' or Range(ws.cells(irow,Cx),ws.cells(irow+1,Cx)).filldown
    Next x

    End Sub

 

[boxxcar]

Dead on!! Thanks. I just could not figure out the syntax to write the formulas (i.e. formulae, Eng. Maj HA). I take consulation that I was pretty close. Thanks for your time and you instruction.

 

[MARK858]

Happy it helped and welcome to the board.