A little help finding if a cell is populated or not.

[Badassack]

In the following code I"m trying to find out if column "A" has a value, if so then fill in the rest of the columns with data.
What do I need to do? Thanks for your help.

Worksheets("data").Activate
If Range("a3", Range("a2").End(xlDown)).Value = True Then <------------this line is the problem.
Range("b3", Range("b2").End(xlDown)).Value = txtautoinput1
Range("c3", Range("c2").End(xlDown)).Value = txtautoinput1count
Range("d3", Range("d2").End(xlDown)).Value = txtautoinput2
Range("e3", Range("e2").End(xlDown)).Value = txtautoinput2count
Range("f3", Range("f2").End(xlDown)).Value = txtautoinput3
Range("g3", Range("g2").End(xlDown)).Value = txtautoinput3count
Range("h3", Range("h2").End(xlDown)).Value = txtautooutput
Range("i3", Range("i2").End(xlDown)).Value = cbocraftingmethod1
Range("j3", Range("j2").End(xlDown)).Value = cbogroupone2
Range("k3", Range("k2").End(xlDown)).Value = cbogrouptwo2
Range("l1").Select
End If

 

[Badassack]

In the following code I"m trying to find out if column "A" has a value, if so then fill in the rest of the columns with data.
What do I need to do? Thanks for your help.

Worksheets("data").Activate
If Range("a3", Range("a2").End(xlDown)).Value = True Then <------------this line is the problem.
Range("b3", Range("b2").End(xlDown)).Value = txtautoinput1
Range("c3", Range("c2").End(xlDown)).Value = txtautoinput1count
Range("d3", Range("d2").End(xlDown)).Value = txtautoinput2
Range("e3", Range("e2").End(xlDown)).Value = txtautoinput2count
Range("f3", Range("f2").End(xlDown)).Value = txtautoinput3
Range("g3", Range("g2").End(xlDown)).Value = txtautoinput3count
Range("h3", Range("h2").End(xlDown)).Value = txtautooutput
Range("i3", Range("i2").End(xlDown)).Value = cbocraftingmethod1
Range("j3", Range("j2").End(xlDown)).Value = cbogroupone2
Range("k3", Range("k2").End(xlDown)).Value = cbogrouptwo2
Range("l1").Select
End If

Well I got the answer I was looking for from a Wise Owl. Here is the code the way I intended it to be.

Dim rowcount As Long
rowcount = Range("a3", Range("a2").End(xlDown)).Cells.Count

Range("b3", Range("b2").Offset(rowcount, 0)).Value = txtautoinput1
Range("c3", Range("c2").Offset(rowcount, 0)).Value = txtautoinput1count
Range("d3", Range("d2").Offset(rowcount, 0)).Value = txtautoinput2
Range("e3", Range("e2").Offset(rowcount, 0)).Value = txtautoinput2count
Range("f3", Range("f2").Offset(rowcount, 0)).Value = txtautoinput3
Range("g3", Range("g2").Offset(rowcount, 0)).Value = txtautoinput3count
Range("h3", Range("h2").Offset(rowcount, 0)).Value = txtautooutput
Range("i3", Range("i2").Offset(rowcount, 0)).Value = cbocraftingmethod1
Range("j3", Range("j2").Offset(rowcount, 0)).Value = cbogroupone2
Range("k3", Range("k2").Offset(rowcount, 0)).Value = cbogrouptwo2
Range("l1").Select