I know this looks a little messy but it is working for what I need thus far. My issue is instead of having a set location("D3") to place the account name on a different worksheet I need it to search the range from D3 down and add it in where there is an empty line. What do you think?
Code:
Sub addAccountSheet()
Dim putinData As Long
Application.ScreenUpdating = False
Sheets("Account Template").Visible = True
Sheets("Account Template").Copy After:=Sheets("Journal")
ActiveSheet.Name = fmAddAccount.lbxAccount.Value
Sheets(fmAddAccount.lbxAccount.Value).Select
Range("B2").Value = fmAddAccount.lbxAccount.Value
Sheets("Account Template").Visible = False
putinData = Sheets("Data Sheet").Range("D" & Rows.Count).End(xlUp).Row
Sheets("Data Sheet").Range("D3").Value = fmAddAccount.lbxAccount.Value
Application.ScreenUpdating = True
fmAddAccount.Hide
End Sub