Want to include header row when creating files based on filters in excel vba macro

Question

I have used the below code to create new excel files based on a filter in column D.

Now it excludes the header row (not making a file for it) as it should but I\'d li