Visual Basic para Aplicaciones - Al pegar valores en la sig celda(offset) los duplica

Buenas tardes amigos, el motivo del presente es porque tengo una detalle con una parte del codigo que tengo, quiero que al desplegarme el listbox y marque un item me lo ponga en una celda especifica y el siguiente item seleccionado en la celda que sigue y así, sucesivamente, pero el primer valor lo hace correctamente pero para los que siguen me duplica los valores colocando el mismo dato en las siguientes dos celdas, envio mi codigo.

sub Lb_Gastos_click()

Sheets("BDConcilGas").Select
Dim x As Integer
x = Lb_Gastos.ListIndex + 2
Cells(x, 4).Select
Selection.Copy

Range("g1") = "VALOR"

Cells(Rows.Count, 7).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste

Application.CutCopyMode = False

End Sub

De ante mano mil gracias por el apoyo