VBA extract certain parts of array

Hi,

I've put some data in a table that gives marks into an array and want to display it in three separate tables. One for Maths only another History only and Finally Biology only.

I can do the first one but is it possible to do this for History and maths. See attached showing desired output.

Sub arrdg()

Dim arr() As Variant
arr = Range("A1", Range("D10").End(xlUp))

'Range("D11").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

'Maths
Range("A9").Resize(UBound(arr, 1), 2) = arr


Erase arr

End Sub