Excell de Bir satıra + koyunca yanındaki verileri aşağıya çekme

Merhaba arkadaşlar. Excell üzerinde bir veri listem var. Ben bu listeden çekmek istediğim verilerin başına veya sonuna "+" koyacağım. Benim istediğim ise, "+" koyduğum verilerin hepsini alt alta sıralaması. Bunu nasıl yapabilirim?
Örnek:

o sütunu filtreleyip (+) olanları seçerek yapabilirsiniz.

o verileri alta çekip onların bazı kategorileri ile extra işlemler yapmak istiyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Value = "+" Then Target.EntireRow.Copy Destination:=Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Offset(1)
End Sub

G sütununa + yazarsan Sheet 2 'ye otomatik olarak kopyalar.

bunu nereye yazacağım?