where sheet19 is the destination and sheet20 is the constant source and col
D (4)
Sub copycolumn()
With Sheets("sheet19")
lc = .Cells(1, Columns.Count).End(xlToLeft).Column + 1
Sheets("sheet20").Columns(4).Copy .Columns(lc)
End With
End Sub

--
Don Guillett
SalesAid Software

"ttlet" wrote in message
...
Is there a way to fill a column from a different sheet and the next day
fill
the next column over from the same sheet as that sheet is updated by a
data
base daliy. I want to keep the information in the first column and
continue
to move to the next column each day.