your question is not clear. I get that you have four columns, but do you
want the new data to fill one row?

The following code will copy the data from row 1 to the next available row
where there is no data.

Sub AddRow()
Dim nextrow As Long
nextrow = Range("A65000").End(xlUp).Row + 1
With Range(Cells(nextrow, 1), Cells(nextrow, 4))
.Value = Range("A1:D1").Value
End With
Range("A1:D1").Value = ""
End Sub





"David Bateman" wrote:

They are on a spread sheet and we have probably 1100 attendance violations
per month. Is it possible to have a list box at the top of each column? One
column each for name, Date, time, violation, and have them populate down the
sheet to the first blank cell at the bottom of each column?