erw = Sheets("QADatabase").Cells(1, 1).CurrentRegion.Rows.Count + 1 Sheets("QADatabase").Cells(erw, 1) = Sheets("QAForm").Range("B3").Value 'etc