Sub M_snb()
   with Sheets("Query").cells(1).currentregion.columns(1).offset(3)
       Sheets("1. Detail").Cells(Rows.Count, 1).End(xlUp).offset(2).resize(.rows.count)=.value
   end with
End Sub