taporctv
06-14-2007, 01:00 PM
I looked around the forums and I found the code but it seems to not work for me
This is the code I have that runs everytime I want to write to column A.
If (Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp) = "") Then
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).CopyFromRecordset RS
End If
A1 has the column header. When the code runs, nothing happens.
This is the code I have that runs everytime I want to write to column A.
If (Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp) = "") Then
Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).CopyFromRecordset RS
End If
A1 has the column header. When the code runs, nothing happens.