VBA Copy match destination formatting

Hi,

Very new to VBA and simply trying to arrange so that when I double click a cell, it adds the contents of that cell to the first empty cell within column F. The issue I am having is that when it copies it removes the formatting of the destination cell which is a table, so I lose the table edges. Is there a way to stop this? I've tried googling but code I includes always seems to cause an error.

Code is:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("B2:B268")) Is Nothing Then
Cancel = True
Target.Copy Destination:=Sheets("Cards").Range("F" & Rows.Count).End(xlUp).Offset(1)
End If
End Sub

Thank you

Thanks Richard. That worked flawlessly.

I'm up against my next issue, which appears slightly more complex, however may not be.

I need the above script to run for several separate columns on 1 sheet. I.e. 1 code will paste to column f, one to column g and so on.

I have thought of getting round this by adding a right click menu, you then select the relevant column from the menu and it pastes to that column.

How do I add the code above that you assisted me with into the following right click menu, so that when I click the option 'ClickMe' it runs the specified code?

Option Explicit

Public Const myBar As String = "MyPopupBar"


Sub CreatePopup()
Dim cmb As CommandBar
Dim ctr As CommandBarControl

DeletePopup

Set cmb = Application.CommandBars.Add(myBar, msoBarPopup)
Set ctr = cmb.Controls.Add(msoControlButton)

With ctr
.Caption = "ClickMe"
.OnAction = "ClickMe"

End With

cmb.ShowPopup

Set ctr = Nothing
Set cmb = Nothing

End Sub


Sub DeletePopup()

On Error Resume Next
Application.CommandBars(myBar).Delete

End Sub

Thanks again!