Hi Roland, welcome to the forum.
Maybe something like this would help:
Sub SaveCSV()
Dim flName As String, flPath As String
Dim strFullname As String
flPath = Sheet4.Range("B3").Value
flName = Sheet4.Range("B2").Value
strFullname = flPath & flName
Application.DisplayAlerts = False
Sheets("Input CW1").Copy
ActiveWorkbook.SaveAs Filename:=strFullname, FileFormat:=xlCSV, CreateBackup:=True
ActiveWorkbook.Close
Application.DisplayAlerts = True
End Sub
Your file path will need to end with a \ for it to work.
Hope this helps