Hi,
         I assume Sheet1 columns A and D are copied to A,B on "newsheet"
and A and D from other sheets are copied to columns C,D/E,F  etc as your
request indicates you want to copy columns in total to a single new sheet.

Sub CopyAandD()

   Dim oRng As Range
   Dim newsh As Worksheet
   
   Set newsh = Worksheets("Sheet3")  ' <==== Change to your "new sheet"
   Set oRng = newsh.Range("A:A")     '  <===== Copy to column A
   
   For Each Sh In ActiveWorkbook.Worksheets
       If Sh.Name <> newsh.Name Then
           Sh.Range("A:A,D:D").Copy oRng
           Set oRng = oRng.Offset(0, 2)
       End If
   Next
   
End Sub