Macro for clearing contents in a rage and cut past the available data from below

[thespardian]

Hi there!
I want a macro which can perform following
If any cell from a range (M10 : P999) is selected, clear the contents of the active cell row (e.g M17 or N17 or O17 or P17 is selected, clear the data from M17:P17),
Then look below the empty row and cut the available data from range (M18:P999)
And paste all the cut data in M17 .
I just want to delete the row without disturbing the row as i have data in the same row in other columns (col L and Col Q are empty)
Any help will be highly appreciated.

Here is the link for excel workbook. Workbook

 

[Fluff]

How about

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Not Intersect(Target, Range("M10:P999")) Is Nothing Then
      Intersect(Target.EntireRow, Range("M:P")).Delete xlUp
      Cancel = True
   End If
End Sub

 

[thespardian]

I want to assign this macro to a button. How can i do it. Pardon me for my ignorance about vb codes therefore i couldn't explain it in my question . The above code is working very well . Just one issue i.e it work spontaneously. I just want to run this code though a button i already created.

Thanks a lot for your guidance.

 

[Fluff]

Will you be selecting a single cell?

 

[thespardian]

I want to assign this macro to a button. How can i do it. Pardon me for my ignorance about vb codes therefore i couldn't explain it in my question . The above code is working very well . Just one issue i.e it work spontaneously. I just want to run this code though a button i already created.

Thanks a lot for your guidance.

Will you be selecting a single cell?

Yes Single cell

 

[Fluff]

How about

Sub thespardian()
   Dim Rng As Range
   If Not Intersect(ActiveCell, Range("M10:P999")) Is Nothing Then
      Intersect(ActiveCell.EntireRow, Range("M:P")).Delete xlUp
   End If
End Sub

 

[thespardian]

How about

Sub thespardian()
   Dim Rng As Range
   If Not Intersect(ActiveCell, Range("M10:P999")) Is Nothing Then
      Intersect(ActiveCell.EntireRow, Range("M:P")).Delete xlUp
   End If
End Sub

You have been always a blessing for me on this forum. You always gave me the strength of knowledge for which i am really thankful to you from the bottom of my heart.

 

[Fluff]

Glad to help & thanks for the feedback.