Macro copying Column Range instead of individual Column

[GuardianEnzo]

I've written a basic macro with extracts records based on two dates:

Please Login or Register  to view this content.

The problem I am having is that it is returning every column between Cells(i, 2) to Cells(i , 6).
I had intended to only copy the two columns (Column B and F), how can I achieve this?
Do I need to do a separate line for each column?

Thanks!

[rcm]

Please Login or Register  to view this content.

[GuardianEnzo]

Thanks for the reply,

I tried using your code but I get an "End If without Block If" Error.
Any ideas? Not too sure why its returning that as there is an If statement 6 lines above...

Removing the End If returns: "Invalid Next control variable reference"

[rcm]

Please Login or Register  to view this content.