Understanding Macros per rows

[Mstg007]

I am trying to figure out how to take a macro I have made for Row A.
Then if i were to select another row, it would run the same as it did for Row A.

My example macro:
Sub Macro2()
'
' Macro2 Macro
'
'
Range("D1").Select
Selection.Copy
Range("A1").Select
ActiveSheet.Paste
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

The other part of my question, is getting the macro to be triggered by the desired row.

Thanks for any help.

 

[Mstg007]

.Hopefully this might clear it up more.
With the images below, I am trying to be able to double click on Cell F4.
Go to Sheet2 and copy G4.
Go back to Sheet1 and paste G4 to F4
In Sheet1, delete cells A4 through D4.

Step 1
https://ibb.co/Hqf7K6w
Step 2
https://ibb.co/m8TpMs1
Step 3
https://ibb.co/SfmRGrV
Step 4
https://ibb.co/b2vp7hB

Does this help more? Thanks again.

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.column = 1 Then
      With Sheets("Sheet2")
         .Range(Target.Offset(, 3).Address).Copy Target
         .Range(Target.Offset(, 2).Address).Copy Target.Offset(, 1)
      End With
      Cancel = True
   ElseIf Target.column = 6 Then
      Sheets("Sheet2").Range(Target.Offset(, 1).Address).Copy Target
      Target.Offset(, -5).Resize(, 4).ClearContents
   End If
End Sub

 

[Mstg007]

That hits it! Works. Thank you for putting that together. That's a pretty powerful routine. Again Thank you!

 

[Fluff]

Glad to help & thanks for the feedback

 

[Mstg007]

im sorry to ask this. Someone was wanting to know if on step 2, if it can copy the sheet2 G4 to sheet2 F4 (as well). I am not having much luck. I was guessing to use the destination piece.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.column = 1 Then
      With Sheets("Sheet2")
         .Range(Target.Offset(, 3).Address).Copy Target
         .Range(Target.Offset(, 2).Address).Copy Target.Offset(, 1)
         .Range(Target.Offset(, 3).Address).Copy Destintation:Sheets=(Sheet2).Range
      End With
      Cancel = True
   ElseIf Target.column = 6 Then
      Sheets("Sheet2").Range(Target.Offset(, 1).Address).Copy Target
      Target.Offset(, -5).Resize(, 4).ClearContents
   End If
End Sub

 

[Fluff]

try

   ElseIf Target.column = 6 Then
      With Sheets("Sheet2").Range(Target.Offset(, 1).Address)
         .Copy Target
         .Copy .Offset(, -1)
      End With
      Target.Offset(, -5).Resize(, 4).ClearContents
   End If

 

[Mstg007]

"Again, im sorry to hassel you on that last part. "

 

[Fluff]

Does that mean it's not working?

 

[Mstg007]

It works great. just wanted to say thanks

 

[Fluff]