Query relating to use of Offset - VBA - vba

Question

I wrote a code for the command button which copies particular data from a particular cell of sheet 1 and pastes in particular cell of sheet 2.
Next time i run the code i want the values to be placed in the next row that i used earlier in sheet 2
What is that i have to change in the code to get it so
Private Sub CommandButton1_Click()
text = Sheets(1).Range("B15")
Sheets(2).Range("B2").Value = Left(text, 4)
Sheets(2).Range("E2").Value = Right(text, 20)
text = Sheets(1).Range("C15")
Sheets(2).Range("C2").Value = text
text = Sheets(1).Range("B10")
Sheets(2).Range("G2").Value = text
text = Sheets(1).Range("B27")
Sheets(2).Range("H2").Value = text
text = Sheets(1).Range("B11")
Sheets(2).Range("J2").Value = text
text = Sheets(1).Range("B20")
Sheets(2).Range("K2").Value = text
text = Sheets(1).Range("D9")
Sheets(2).Range("L2").Value = text
End Sub

Answer 1

Private Sub CommandButton1_Click()
Dim c as Range
'assuming each row on sheet2 has a value in columnB...
Set c = Sheets(2).Cells(Rows.Count,"B").End(xlUp).Offset(1,0)
With c.EntireRow
text = Sheets(1).Range("B15")
.Cells(1,"B").Value = Left(text, 4)
.Cells(1,"E").Value = Right(text, 20)
.Cells(1,"C").Value = Sheets(1).Range("C15").Value
.Cells(1,"G").Value = Sheets(1).Range("B10").Value
.Cells(1,"H").Value = Sheets(1).Range("B27").Value
.Cells(1,"J").Value = Sheets(1).Range("B11").Value
.Cells(1,"K").Value = Sheets(1).Range("B20").Value
.Cells(1,"L").Value = Sheets(1).Range("D9").Value
End With
End Sub