VBA Code to transfer data from one sheet to another

[Mick1982]

I need help with this

It only seems to transfer 1 row where as the data I have has numerous rows can somone help with this please.

Code is below

rivate Sub CommandButton3_Click()

Dim TestName As String, StepName As String, Description As String, Expected As String, Actual As String, TestStatus As String, Comments As String
Worksheets("Test Execution Sheet").Select

TestName = Range("A2")

StepName = Range("B2")

Description = Range("C2")

Expected = Range("D2")

Actual = Range("E2")

TestStatus = Range("F2")

Comments = Range("G2")

Worksheets("data").Select
Worksheets("data").Range("a1").Select
If Worksheets("data").Range("a1").Offset(1, 0) <> "" Then
Worksheets("data").Range("a1").End(xlDown).Select

End If

ActiveCell.Offset(1, 0).Select
ActiveCell.Value = TestName
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = StepName
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Description
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Expected
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Actual
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = TestStatus
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Comments
Worksheets("Test Execution Sheet").Select


End Sub

The data sheet has the same table where no data is present I want the data I submit from Test Execution Sheet to transfer to the data sheet howwever this only seems to transfer one row an not all rows in view within the Test Execution Sheet.