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