Click on a Cell and Contents of cell populate another cell in another worksheet

[Msears]

How can I make this code do this:
I have data in Col A and Col G, I want to click on any cell in A and it populate Col A and Col G into Col A and and D on worksheet 2?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub
Cancel = True
Dim Lastrow As Long
Lastrow = Sheets("List").Cells(Rows.Count, "A").End(xlUp).Row + 1
Target.Copy Sheets("List").Cells(Lastrow, 1)
End If
End Sub

 

[Fluff]

You're welcome & thanks for the feedback.

 

[My Aswer Is This]

One thing I would suggest:
Try reading the script and see if you understand the script.
Try making a new script similar to this but modify it a little and see what it does.
I sort of believe in the Proverb:
Give a Man a Fish, and You Feed Him for a Day. Teach a Man To Fish, and You Feed Him for a Lifetime.
You will really start to enjoy Excel more and more as you learn to write scripts. Take care

 

[Msears]

Ok, how about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.Column = 1 Then
      Cancel = True
      If Target.Value = "" Then Exit Sub
      With Sheets("My Goals").Range("A" & Rows.Count).End(xlUp)
         .Offset(1).Value = Target.Value
         .Offset(1, 3).Value = Target.Offset(, 6).Value
      End With
   End If
End Sub

Thanks again for the help Fluff! My next quandary involves. Making this sheet auto sort by date (Oldest to Newest), domain (Alphabetical), goal (Smallest to Largest)?

 

[Msears]

Thanks again for the help Fluff! My next quandary involves. Making this sheet auto sort by date (Oldest to Newest), domain (Alphabetical), goal (Smallest to Largest)?

Opps forgot to attach the pic!

 

[Fluff]

As this is a different question, it needs a new thread. Thanks