Extracting selected columns data only from database worksheet into summary worksheet

Hello guys!
I tried my best to produce a report with only selected 4 columns from the main database which has 15 columns. The summary report will be prepared with only extracted 4 columns data which are "Date", "Customer Name","CFR Number" and "Meter Difference".

In my VBA, when the combo-box "Search By" selected and "Search Value" entered, "Search" command-button filter out and produce "SearchData" Worksheet. Then from these ("DataSearch") data i want to extract those 4 columns only to the "SalesSummary" Worksheet.

....further you can see my VBA trial.


In my summary report the other columns are hidden. Would you please help me just to extract 4 columns only and avoid hiding columns?

Thanks in advance for your kind support!