I am trying to write a code that would copy the data from a listbox and then paste it into the first cell in the first blank column in another sheet. I have it such that it copies data over the the sheet I want I just can't seem to get it to find the next blank cell. my code: lbRight is my listbox.

Dim Data() As Variant
Dim I As Long


Sheets("Finalized Teams").Activate
ActiveSheet.UsedRange.Offset(1).EntireRow.Clear


ReDim Data(lbRight.ListCount - 1, 2)

For I = 0 To UBound(Data)
Data(I, 0) = lbRight.List(I, 0)
Data(I, 1) = lbRight.List(I, 1)
Data(I, 2) = lbRight.List(I, 3)
Next I

Range("A1").Resize(I, 3) = Data

lbRight.Clear


thanks