Sheet Coding

[Liam.Poll]

Hi i am not sure if there is a post covering this so i apologize in advance if there is

I am trying to get a sheet code for keeping the input data of a cell and saving it into another cell. To be specific i am talking dates
I have been made aware of the following code;

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Target.Offset(0, 1).Value = WorksheetFunction.Text(Target.Value, "mm/dd/yyyy") & vbCrLf & Target.Offset(0, 1).Value
End If
End Sub

This makes the data typed into cell B copy into Cell C as a list

However i want this to also affect cell G to copy the data into cell H. The same as B does into C

All help is appreciated thanks