Easiest in my opinion would be to record a macro whilst doing the formatting
once then run that in conjunction with the select_transpose macro?

Once a month run the select_transpose then run the formatting macro?

Alternative method is to link the transposed data to the original columns on DB
sheet.

This macro copies from DB sheet to TEST sheet and links the cells.

Sub select_and_Link()
  Sheets("DB").Select
  Range(Range("A2:B2"), Cells(Rows.Count, _
       Selection.Column).End(xlUp)).Copy
   Sheets("TEST").Select
   With ActiveSheet
   .Range("A4").Select
   .Paste Link:=True
   End With
   Application.CutCopyMode = False
End Sub

Now, one time run this John Walkenbach macro to Transpose the linked formulas
but note that I guess it would have to be run again when your query adds a row
to DB which will kill the formatting again.

Sub Transpose_Formulas()
Dim SRange As Range, dCell As Range
Dim sCell As Range, i As Integer, J As Integer
Dim str As String

   'get input ranges.  default box is filled by use of text
   'variable set to the selected address
   str = Selection.Address(False, False)
   Application.ScreenUpdating = True
   On Error Resume Next
   Set SRange = Application.InputBox(prompt:= _
           "Select the range of cells to be transposed." & Chr(10) & Chr(10) _
           & "If cells do not have Formulas, Sub will end!.", _
           Type:=8, Default:=str)
   If Not SRange.HasFormula Then
       MsgBox "Cells do not contain formulas"
       End
   Else
       If SRange.HasFormula Then
           Set dCell = Application.InputBox(prompt:= _
                   "Select the top left cell of the output location.", _
                   Type:=8)
           If dCell Is Nothing Then End
           On Error GoTo 0
   'set single cell references for use in the next step
           Set sCell = SRange.Cells(1, 1)
           Set dCell = dCell.Cells(1, 1)

   'loop through all cells, working backward to the top left cell
           For i = SRange.Rows.Count - 1 To 0 Step -1
               For J = SRange.Columns.Count - 1 To 0 Step -1
                   If i > 0 Or J > 0 Then
   'do this for all but the first cell
                       sCell.Offset(i, J).Cut _
                               Destination:=dCell.Offset(J, i)

                   Else
   'do top corner last.  Otherwise references are changed
                       sCell.Cut Destination:=dCell
                   End If
               Next J
           Next i
       End If
   End If

End Sub

Gord