Copying cell values to next available row in a table

[worl4125]

Hello all,

I have a four column table (columns A through D) and I have four "data entry" cells (F2, G2, H2, and I2). What I want to do is this:

1. enter my data in F2 through I2
2. hit enter (or whatever button excel needs me to hit)
3. have those values copied into the next available row in the table (A through D)
4. have F2 through I2 cleared for the next data entry

I've gone through several of functions that I'm familiar but haven't been able to find a way to make this work. I suspect it is going to take some VBA to accomplish this and while I am a programmer, I am completely unfamiliar with VBA.

Can anyone offer any help with this?
Thanks in advance.

 

[oldbrewer]

in a helper cell have a count of non empty cells plus 1 = next available row - use a macro to copy F2 thru I2 to the next empty row - say helper is Z1 use cells(cells(1,26),1).select

 

[worl4125]

Ok; I've worked out a partially working solution...

sub ledgerInput()

    Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1,0).Value = Range("F2:I2").Value
    Range("F2:I2").ClearContents

End Sub

The problem is that it is only copying the data for the first cell. For example, the data in F2 is copied to the next empty cell in column A, like it should be; however the data from G2 to I2 isn't getting copied over to the corresponding cells in column B to D.
Any thoughts on what I'm missing?

 

[RasGhul]

Is this on the same sheet or different sheets?

 

[MARK858]

As RasGhul has intimated you should explicitly state the sheet on all sheets when coding but based on the code you supplied maybe...

Sub ledgerInput()
    With Range("F2:I2")
        Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value
        .ClearContents
    End With
End Sub